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BRITAIN'S LARGEST COMPUTER USER GROUP 
MEMBERSHI | o) = 


ЕХСЕЕІ 


You will see that BEEBUG has acquired a new editor. This does not imply any 
immediate or major changes nor does it signify any kind of palace revolution, but is 
just a consequence of the growth and success of BEEBUG and the launch of our new 
magazine for the Electron. I am also in no way related to Sheridan Williams, though 
our common surname does occasionally cause confusion in the office. 


COMPUTER SHOWS | 

We would like to thank all those members who took the trouble to visit us on our 
stand at the PCW show. We shall also be at the 'Your Computer' Christmas Fair (see 
Events іп the supplement) in December and hope to see as many as possible of you 
there. We shall be launching a range of software for Christmas at the show. 


1.2 OPERATING SYSTEM ROM . 

For some time now, all BBC micros sold have come with O.S. 1.2 and many earlier 
models have been upgraded to take advantage of the extra features of the newer 
version. Since а very large majority of members must now be using 0.5. 1.2 we have 
decided that from the start of 1984 we shall only use 0.5. 1.2 to develop and test 
programs for the magazine. This enables us to use more of the features of the 1.2 
operating system to the general benefit of programs, without the worry of 
incompatibility. In any case, more and more software suppliers will cease to cater 
for O.S. 0.1, if they haven't already done so. 


EXPANSION ROM BOARDS | 

Many BEEBUG members have expressed interest in expansion ROM boards for the Beeb 
and we have reviewed three in this issue. Acorn themselves do not make an expansion 
board for the BBC micro and have no immediate plans to do so. 

However, it is quite likely that it will be difficult to fit both an expansion 
ROM board and опе of the new double density disc controller boards (such as those 
from Microware and LVL) at the same time. We hope to be able to review double 
density disc controllers for the next issue of BEEBUG and will report then on any 
problems we find. 

Mike Williams 


HINT WINNERS 
This month's hint winners are G.M.Abernethy who wins the £10 prize, and Paul 
Beverley and J.L.Ward who both win a £5 prize. 


MAGAZINE CASSETTE 

This month the magazine cassette contains two extra items. The first is the 
winning program in our Sort Competition (see BEEBUG Vol.2 No.4) by J.B.Simpson. This 
is in assembler and is able to sort rapidly, data contained in numeric or string 
arrays. We are also including on the cassette full details on how to use the 
program. We have also included a demonstration of Swarmers' Revenge, BEEBUG's new 
game. 

For those not wishing to purchase the whole tape, we are continuing our photocopy 
service (introduced last month) for the additional items on the magazine cassette 
(except for Swarmers' Revenge). Send 50р per item required, plus sae to: 
Photocopies, BEEBUG, PO Box 50, St Albans, Herts. Please give your membership 
number. | 
BEEBUG POST 
BEEBUG still requires a young technical assistant with software expertise on the 
Beeb. See the supplement for details. 


NOTE - in this issue 1 and 1 are in some listings printed the same - there are no 
lower case Ls gen on кеге own. 
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- Fast Sort Routine 
-  Swarmers' Revenge Game Demo 


8EEBUG MAG. 


November 1983 


Volume-2 Issue-6 


BEEBUG ON TV 
Those of you who were able to watch 


the Thames Television programme 
"Database" on the evening of Wednesday 
28th September will have seen copies of 
BEEBUG magazine being shown by Guy 
Kewney as examples of the best kind of 
magazine for the home and personal 
computer user. This occurred during an 
item on the recent PCW Show at the 
Barbican Centre, London at which BEEBUG 
had a stand. We noticed that many of 
you took time to visit us and we hope 
that your visit to the show was 
worthwhile. 
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BBC MICRO FOR THE US AND CHINA 

The Wong Electronics Company of Hong 
Kong have won a 05545 million order to 
manufacture BBC micros for the US 
market. Shipping is scheduled to begin 
this autumn with 50,000 being produced 
in the next 12 months. Wong's already 
manufacture Acorn products for the Far 
East and Australia and negotiations are 
now in progress with China. 

The US version of the micro will 
include disc drive, voice synthesis and 
Econet interface in the 055995 price. 
The machine will be aimed very strongly 
at the US educational market. 
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DISC EXECUTOR 

Vision Software have just announced 
their software package called DISC 
EXECUTOR. It allows you to transfer any 
tape software to disc (including 
'locked' programs), and allows games up 
to &6E blocks to be loaded and run from 
disc. 

DISC EXECUTOR costs £11.00 from: 
Vision Software, 1 Allington Street, 
Liverpool, L17 7AD. 


ACORN SHARES FOR SALE 

Acorn Computers have recently 
announced that they are offering 10% of 
their shares for sale on the Unlisted 
Securities Market. So if you fancy a 
flutter in the stock market and a 
chance to get a stake in one of the top 
five computer munufacturers of this 
country, then see your stockbroker 
immediately. 
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COMPUTER AIDED DESIGN 

Ibbotsons Design Software has 
recently released a CAD system, 
available on cassette, disc or EPROM 
called DIGITAL DRAWINGS. Some of the 


facilities offered are: 19 shading 
patterns, single key commands, 
reference scales and grids, 32 


pre-defined graphics symbols, rubber 
banding and zoom. Тһе package is 
designed to work with an EPSON ЕХ-80 
printer. The price will be below #100 
for all the systems. 


For further details contact 
Ibbotsons Design Software, The Byre, 
Ecclesbourne Lane, Idridgehay, 


Derbyshire, DE4 4JB. 
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MONITOR/TV STAND AND SOUND CONTROL 

Microsupport are marketing a steel 
support for your monitor/TV. The BBC 
micro will slide underneath when not in 
use. It costs £16.99 inc. VAT апа 
postage. 

They also make an external volume 
control which allows you to connect 
your Beeb to another speaker, or from 
another Socket, to an external 
amplifier. Cost is £4.00 inc VAT and 
post, from: 

Microsupport, 194 Reddown Road, 
Coulsden, Surrey, СВЗ 1AL. 
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EMOLITION (32k 
by D D Harriman 


All at BEEBUG found this program highly entertaining when we first saw it in 
action. The colourful graphics, fast action and sizzling sound effects are all 
combined in a highly pyrotechnic display. 


10 REM Program DEMOLITION 

20 REM Version В1.0 

30 REM Author D.D.Harriman 

40 КЕМ BEEBUG November 1983 

50 REM Program subject to Copyright 

60 *FX9,12 

70 «ЕХ10,12 

80 ENVELOPE 1,0,0,0,0,0,0,0,0,-1,-1, 
-1,126,0 

90 MODE 2 

100 VDU 23,224,85410;8ВСТЕ;67СҒЕ; 5104 


110 VDU 23;8202;0;0;0; 
120 FOR 0%-1 ТО 16 
130 H$-RND(309)-4199 
140 V$-RND(3909)-419060 


The program starts with a colourful 150 IF Н%<У% H$-30-«RND(40) ELSE V$-30 
display on the screen, consisting of +RND (40) 
randomly positioned shapes of various 160 X$-RND(1280-H$) -1 
colours surrounded by а border. The 170 Y$-RND(1024-V$) -1 
computer then places somewhere on the 180 REPEAT N$-RND(15) 

Screen, a small 'ball' which is then 190 UNTIL М%<>7 
sent shooting across the display. 200 GCOL 0,1284N$ 
Whenever it collides with a shape, or 210 VDU 24,Х%;Ү%;Х%-Н%;Ү%Ғ-У%; 16,26 
the border, ап 'explosion' occurs, and 220 GCOL @,RND(6) 
part of the shape is destroyed. Тһе 230 X%=RND(1282) 
ball bounces off and continues its 240 YS-RND(1924) 
destructive rampage around the screen, 250 2%-КМ0(100) 
gradually eroding away every object in 260 MOVE X%,Y% 
the display. Every collision is 270 MOVE Х%%2%7%,Ү% 
followed by a colour change on the 280 PLOT 85,X24Z2,Y942*Z$ 
Screen. At times, everything seems to 290 GCOL @,RND(6) 
go berserk with a riot of flashing 300 X$-RND(1280) 
colours and explosive noises. Тһе 310 Y%=RND(1924) 
kaleidoscope of sound апа colour 320 Z2%=RND (100) 
continues for 5 minutes before а new 330 FOR F2-20 ТО Z% STEP 4 
screen is set up and the action starts 340 K%=SOR(Z3*Z%-F3*FS) 
all over again. ! 350 MOVE X£-K$,Y$4F$ 

| 360 DRAW X%+K%,YS+F% 

The sound effects are particularly 370 MOVE Х%-К%,Ү%-Е% 
effective, giving the impression of 380 DRAW X24K$,Y$-F$ 
underground explosions. If you look 390 NEXT 
carefully you will also see that the 400 NEXT 
ball has a curved path ensuring, that 410 GCOL 0,132 
it will never get caught in а 420 VDU 24,0;0;50; 1023; 16 
repetitive sequence, unlike the old 430 VDU 24,0;0;1270;50;16 
BREAKOUT game. This very modest program 440 VDU 24,1230;0;1279;1023;16 
will well repay the small effort of 450 VDU 24,0;974;1279;1023;16 


typing it into your micro. 460 VDU 20,26 
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470 X$-100 

480 Үз-900 

490 X-8 

500 Ү-1 

510 ТІМЕ-й 

520 REPEAT Ү-Ү%,999-,1 

530 Х-Х%.,999 

540 P$-POINT(X$4X,Y$) 

550 IF Р%<>7 AND Р%<>0 X--X:PROCZ ELS 
E РФ-РОІМТ(Х%,Ү%ҒҮ):ІЕ Р%<>7 AND P$«»0 
=—Y : PROCZ 

560 PLOT 71,X2,Y$ 

570 XS=XS+X 

580 Y$-Y$-Y 

590 PLOT 69,X%,Y% 

600 UNTIL TIME»39909:RUN 


610 DEF PROCZ 
620 VDU 19,P%,RND(6) ; ø; 

630 Х-Х%1.03 

640 Y=Y*(1.93-.1*(Y>Q AND Ү%<500)) 
650 MOVE X%-32+RND MOD 9,Y%+12+RND МО 
5 

660 GCOL 0,0 


670 VDU 5,224,4 

680 GCOL 0,7 

698 SOUND 16,1,3+RND(3) ,1 

700 IF X$«50X-8 ELSE IF Х%>1230 Х--8 
710 IF Y$«50 Y-8 ELSE IF Ү%>974 Үс-8 
720 IF ABS X>16 X=16*SGN(X) 

730 IF ABS Ү>16 Y=16*SGN(Y) 

740 ENDPROC 


As ап example of the detailed 
information contained in the Advanced 
User Guide (reviewed elsewhere in this 
issue), the publishers have given us 
permission to print this extract in 
ВЕЕВОС. 


This example program will set up a 
brand new mode which has been nominated 
as 'MODE 8'. It is acheived by directly 
accessing the video ULA. 'MODE 8' is a 
full 16 colour mode and can be 
implemented оп а Model А as well as a 
Model B since only løk of RAM is used. 
There will only be 10 characters across 
the Screen, but printing and plotting 
will operate properly. One word of 
warning however. Do not try to redefine 
the text window when this mode is in 
use because it will not work! All error 
checking on window bounds will Бе 
ineffective іп this mode since the 
operating system does not expect mode 8 
to exist. 


19 REM CREATE 'MODE 8'- 

20 REM NOTE: NO WINDOWING ALLOWED 

30 REM 

40 REM NOTE: POKING VDU VARIABLES 

50 REM 15 GENERALLY ILL ADVISED. 

60 MODE 5:REM BASIC MODE 

70 REM CONFIGURE VIDEO ULA FOR 10 CO 
LUMN, 16 CHARACTER 

80 *FX 154,224 

90 ?&360-&F:REM COLOUR MASK 
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100 ?&361=1:REM PIXELS PER BYTE-] 
110 ?&34F-&20:REM BYTES PER CHARACTER 


(4 WIDE x 8 HIGH) 


120 ?&363-&55:REM GRAPHICS RIGHT MASK 
130 ?&362-&AA:REM GRAPHICS LEFT MASK 
140 ?&30A-9:REM No. OF CHARS PER LINE 
150 VDU 20 

160 REM DEMO 

170 MOVE @,@:DRAW 640,512:DRAW 1279,0 
180 РКІМТ ТАВ(1,2); 

198 ASz"***HelloThere***" 

200 COLOUR 129 

210 FOR А%=] ТО 16 

220 IF Аз-9 THEN PRINT TAB(1,8); 
230 COLOUR А%-1 

240 PRINT МІр5(А5,А%,1); 

250 NEXT А% 

260 PRINT 
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The ability to define your own characters is опе of the most useful features of 
the Beeb. Many games programs make considerable use of this facility. 


by Ian McEwen 


Here we 


present a program which not only makes this task easy but enables you to build 
larger shapes using multiple user defined characters. 


SHAPER is a useful utility program 
that allows you to build up multiple 
user defined characters that you can 
then incorporate into other programs. 
You are presented with a grid of 64 
empty characters on the screen which 
you can then use to design your own 


shapes, moving about Бу means of the 
cursor keys. As you define the 
characters on this grid, the same 


characters, actual size, are displayed 
at the right hand side of the screen. A 
significant advantage of this utility 
is the ability to define a large shape 


comprised of several individual 
characters as a whole, instead of 
having to define each character 


individually. 


When you have finished creating the 
shape of your choice, the parameters 
for each defined character are listed 
on the screen and, optionally, on a 
printer. The eight parameters listed 
for each character can then be used to 
define the same character in another 
program using the  VDU23 command (see 
pages 178 to 179 and page 384 of the 
User Guide for further information). 


To use the SHAPER program, you will 
need first to type it in and save it on 
tape or disc. Disc users will need to 
set PAGE lower than the default &1990 
(&1200 is recommended) in order to use 
the | program. Ideally, a move down 
routine should be used which avoids any 
problems of program corruption by the 
DFS. Otherwise, load and run the SHAPER 
as for any Basic program. | 


Detailed instructions for using 
SHAPER are contained in the screen 
displays. When using the cursor keys, 


keep any key continually pressed to 
move quickly across the grid. In апу 
cursor position, pressing '‘fg' will 
display а single pixel in that 
position, and pressing 'f1' will delete 
a pixel. Trying to insert a pixel where 
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ixel. 
іхеі. 
ға 


sacter. 
haracter. 


one already exists or to delete a 
non-existant pixel will produce а 
warning bleep. The function keys Ғ2 and 
£3 can be used to display, or delete, 
all the 64 pixels comprising a complete 
character.This feature can also be used 
to define black shapes on a white 
background. Experimenting with the 
cursor and function keys will soon 
demonstrate the power and convenience 
of this program. Using SHAPER, апу 
shape can be rapidly drawn as a set of 
user defined characters. 


Pressing Return will terminate 
character editing and the corresponding 
VDU 23 codes for each defined character 
are then listed on the screen, апа 
copied to а printer if required. The 
codes for each character сап then be 
used ав the parameters of VDU 23 
commands to define the same characters 
in other programs. Normally ASCII codes 
in the range 224 to 255 are used for 
this purpose (see pages 170 to 179 апа 
page 384 of the User Guide for further 
information). You will also need to 
note the relative positions of several 
characters that are to be combined 
together in order to preserve this 
relationship in future use. This 
information is also displayed on the 
screen | along with the character 
definitions 


Volume-2 Issue-6 


NOTES FOR MORE ADVANCED USERS. 

Although the SHAPER program allows 
up to 64 new characters to be defined 
at any one time you will normally be 
limited to using only 32 characters 
with ASCII codes 224 to 255. However, 
under version 1.0 and later of the 
operating system, you can define more 
than 32 characters. : 


In addition to ASCII codes 224 to 
255 it is also possible to redefine the 
characters with ASCII codes 128 to 159 
while, if additional memory is reserved 
for the purpose, all ASCII codes in the 
range 32 to 255 can be redefined. For 
further information see pages 427 and 
428 of the User Guide. 
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10 REM Program 
20 REM Version В1.9 

30 REM Author I.McEwan 

40 КЕМ BEEBUG November 1983 

50 КЕМ Program Subject to Copyright 


100 MODE7 

110 ON ERROR GOTO 1740 
120 *FX15,1 

130 PROCErontpage 


150 MODE] 
160 PROCinit:PROCtextwindow(0,12,39,0) 
170 PROCgraphwindow(9,9,1279,576) 
188 PROCframe(0,0,ht,(wt-ht) ,nh,nv) 
190 PROCdraw 
200 *FX15,1 
210 *FX4 
220 *FX12,0 
230 PRINT''"Press any key to exit.":X 
-GET 
240 MODE7 
250 END 
260 : 
1000 DEFPROCinit 
1010 *FX225,128 
1020 sg=224:cur=225:@%=@ :nh=8 snv=8 sht= 
512:wt=51 2: P£lag$-FALSE 
1030 Ур023,54,192,192,0,0,0,0,0,0 
1040 VDU23,cur,0,192,0,0,0,0,0,9 
1050 VDUI9,2,7,0,0,0 
1060 DIMpos% (64) ,деҒсһ(%(64,8) : ENDPROC 
1970 : 
1080 DEFPROCgraphwindow(a,b,c,d) 
1090 VDU24,a;b;c;d;:ENDPROC 
1120 : 
1110 DEFPROCtextwindow(a,b,c,d) 
1120 VDU28,a,b,c,d:ENDPROC 
1130 : 
1140 DEFPROCframe(x,y;,S,r,h,v) 
1150 LOCAL K% 
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1160 VDU5:GCOL3, 1:MOVEx ,y 

1170 DRAW x,y+S:DRAW xtStr,y4-S:DRAW x+ 
Str,y:DRAW x,y 

1180 FORR2-1TO(v-1) :MOVE х,у+(5/у) *K$: 
DRAW x+s+r ,y+(S/v) *K$:NEXT 

1190 FOR K$-1TO(h-1):MOVE x+((s+r) /h) * 
K$,y:DRAW x+((s+r) /h) *K%,y+s: NEXT 

1200 GCOL@, 3: VDU4: ENDPROC 

1210 : 

1220 DEFPROCdraw 

1230 LOCAL Н,У,п%,0% 

1240 COLOUR 131:COLOUR @:CLS 

1250 PRINT'TAB(3);"Now use the cursor 
keys to move" 

1260 PRINTTAB(25);"the cursor."'TAB(3) 
S"Press;-" 

1270 PRINT'" 'fg' to fill a pixel." 

1280 PRINT" 'f]' to delete a pixel." 

1298 PRINT'" 'f2' to fill a character. 


1300 PRINT" 'f3' to delete a character 


1310 PRINT'TAB(9);"Press RETURN when f 
inished." 

1320 *FX4, 1] 

1330 *FX12,2 

1340 VDUS :GCOL@,3:MOVE 648,576: PRINT" 
Here is your shape":MOVE 704,544:PRINT" 
(actual size)" 

1350 H1232:V1-480 

1360 H=H1-32:V=V1+32:h=1]:v=1:GCOL 3,2 

1370 REPEAT 

1380 *FX15,1 

1390 MOVE H,V:VDUcur :m$-GET:MOVE H,V:V 
DUcur 

1400 IF m$- 136 THENh- h-1:HzH-8:IFh«] 
THEN hz8:H1zH1-64:IF H1<@ THEN h=]:H=H+ 
8:H1I=H1+64 

1410 IF п%-137 THENh=h+] : H=H+8 : IFh>8TH 
EN hz1:H1-2H1464:1IF Hl»wt THEN h=8:H=H-8 
НІ-Н1-64 

1420 IF п%-138 THEN v-v-1:VzV-8:1F у>8 
THEN v=1:V1=V1-64:IF V1<@ THEN v=8:V=V 
+8:V1=V1+64 

1430 IF m$- 139 THEN v-v-1:V-V48:IF v< 
1 THEN v=8:V1=V1+64:IF Vil>ht THEN v=1:V 
=V-8:V1=V1-64 

1440 h$-(H1432) /64:v%=(V1+32) /64 

1450 n$-h£t(8-v$)*8 

1460 IF п%-128 THEN PROCcheck(3,h,v) :I 
Е cancel$-] THEN GCOL3,2:GOTO 1520 

1470 IF п%-128 THEN PROCplace 

1480 IF п%-129 THEN PROCcheck (0,h,v):I 
Е сапсе1%-1 THEN GCOL3,2:GOTO 1520 

1490 IF п%-129 THEN PROCdelete 

1500 IF m$-130 THEN PROCCchange (3) 

1510 IF m$-13] THEN PROCChange (0) 

1520 UNTIL п%-13 

1530 PROCchr : ENDPROC 
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1550 DEFPROCchr 

1560 LOCAL Қ%,Х,Х5 

1570 GCOL@,3 :VDU4: PROCtextwindow(@,12 
7 39,8) | 

1580 CLS:PRINTTAB(3,7);"Press 'P' for 
a print-out" 

1590 PRINT'TAB(3);"else the SPACE BAR. 
"S:XS-GETS 

1600 IF X$-"P" OR X$="p" THEN CLS:PRIN 
T'''''TAB(5);"Switch your printer on.": 
PRINT''''TAB(12);"Press Space Bar when 
ready.":X-GET:Pflag$-TRUE 

1610 PROCtextwindow(9,22,39,9) 

1620 COLOUR 128:COLOUR 3 

1630 CLG:CLS: РКОСЕгате (0,0, 256,256,пћ, 
пу) :VDU14:IF Pflag$ THEN VDU2 

1640 PRINTTAB(5);"Here are your defini 
tions:-" 

1650 FORK%=1 TO nh*nv 

1660 IF pos%(K%)>@ THEN PROCdefprint 

1670 NEXT K$ 

1680 PRINT:VDU5,3:K$-]:REPEAT 

1690 IF pos%(K%)>@ ТНЕММОМЕ( (K$-1)MOD8 
) *64,254- ( (K$-1) DIV8) *32: PRINTK$ 

1700 KS-K$-1:UNTIL K%>nh*nv 

1710 MOVE 550,209:PRINT"The arrangemen 
t of":MOVE 550,136:PRINT"your character 
.S is":MOVE 550,76:PRINT"shown in this f 
rame.” :VDU4 

1720 ENDPROC 

1730 : 

1740 ON ERROR OFF 

1750 MODE7 

1760 VDU26,4,30 

1770 *FXA 

1780 *FX12,0 

1790 IF ERR<>17 THEN REPORT:PRINT" at 
line "ERL 

1800 END 

1810: 

1820 DEFPROCcheck (clr%,h,v) 

1830 LOCAL h$£,v$:cancel$-0 

1840 h$-787-4*h-H1/2:v$2160—4*v-V1/2:I 
Е POINT(h2,v$)-clr£$ THEN cancel%=1:IF m 
%=129 THEN VDU7 

1850 ENDPROC 

1860 : 

1870 DEFPROCfrontpage 

1880 LOCAL K$ 

1898 FOR K$-] TO 2 

1900 PRINTTAB (5,K%) ; CHR$132CHR$1 57CHR$ 
131CHR$141;TAB(19);"S HA P Е R";TAB(30 


);CHR$156 | 


1918 NEXT 

1920 PRINT''TAB(19);" This program help 
S in" 

1930 PRINT'TAB(5)"the composition of 5 
HAPES using" 

1940 PRINT'TAB(4)"multiple user-define 
d characters." 

1950 PRINT'TAB(7);"(User Guide pages 3 
84-385)" 

1960 PRINT''' 

1970 PRINTSPC(8);CHR$157;CHR$]35;CHR$S] 
32;"Press the SPACE BAR";SPC(2);CHR$156 
:X-GET 

1980 ENDPROC 

1999 : 

2000 DEFPROCdefprint 

2010 LOCAL J%,KS 

2020 KS=STRS (K%) : IF К%<10 THEN KS=CHRS 
32-К5 

2030 PRINT'"No."+KS+":— "; 

2040 FORJ$-1TO8: PRINT defchr$(K$, 2%); 

2050 IF J%<8 THEN PRINT","; 

2060 МЕХТ0% 

2070 ENDPROC 

2080 : 

2090 DEF PROCplace 

2100 pos$(n£)-pos$ (n$)-42^v:defchr$ (n$, 
у) =defchr$ (n%,v)+2* (8-h) : P$z1:MOVE H,V: 
GCOL3, 3: VDUSq:GCOL@, 3: PLOT69, 787+4*h+H] 
/2,160—-4*v4V1/2:GCOL 3,2 

2110 ENDPROC 

2120 : 

2130 DEF PROCdelete 

2140 pos% (n%) =pos% (п$) -2^v:defchr$ (n$, 
у) =defchr$% (n£,v)-2^ (8-h) :D$¥=1:MOVE H,V: 
GCOL3,3:VDU sq:PLOT69,78744*h-H1/2,160—- 
4*v4tV1/2:GCOL3, 2 

2150 ENDPROC 

2168 : 

2170 DEF PROCchange (X) 

2180 LOCAL h,v,H,V 

2190 FOR һ=1 TO 8:FORv=1 TO 8 

2200 PROCcheck (X,h,v) 

2210 H-H148* (h-1) -32:V-V1-8* (v-1) +32 

2220 IF cancel$-0 THEN PROCcng (X) 

2230 NEXT v,h 

2240 ENDPROC | 

2250 DEF PROCcng (X) 

2260 IF X-3 THEN PROCplace ELSE PROCde 
lete 

2270 ENDPROC 


600 BAUD RS423 - Nick Porter 


The Tandy CGP-115 runs at 600 baud. To run the Beeb's RS423 interface at 600 baud 
requires a simple trick. Set up the baud rate at 150 baud and then alter the clock 
division ratio in the 6850 ACIA chip with: 
*FX156,1,253 | 
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Program : Bandits at 3 O'Clock 
Supplier: Program Power 

Price : £6.95 

Rating : *** 


Bandits at 3 o'clock is a new game 
for one or two players in which you 
control а bi-plane. You will need 
joysticks, as this is the only form of 
input allowed by this program, but 
controlling a plane is much easier this 
way than using the standard keyboard. 


The display consists of a church and 
grave yard at the bottom centre of the 
Screen, and two runways at the extreme 
edges of the screen. The idea of the 
game is to try to destroy your enemy 
using a machine gun mounted іп your 
plane. 


The game has many options including 
choice of day or night and additional 
problems in the form of clouds, flak 
and airships. This is a simple but 
entertaining game, which makes а change 
from the pressures of the normal arcade 
games. | 


НИИИИИННИИИИНИНІН ЕНЕ ОООО 
Program : Attack оп Alpha Centauri 
Supplier: Software Invasion 

Price £7.95 

Rating жк 


Attack on Alpha Centauri is a new . 
game from Software Invasion, who 
specialise in producing high quality 
three dimensional graphical games. The 
gane features some of the best and 


оо оо 


ИНИПНИИНИННИИНИННИНИИНИПННИН ИННИ НИН 


obert Barnes & Alan Webster 


==! FELIX AND THE FRUIT MONSTERS 


most unusual graphics yet for the BBC 
micro. 


This is a version of Galaxians the 
like of which you've never seen before. 
An alien landscape is displayed which 
has been very well designed using the 
technique of overlaying colours to 
produce many different shades. When the 
game starts, опе of several volcanos 
errupts and impressive looking insects 
fly out which you then have to shoot 
down. As the insects come for you they 
actualy increase іп size until they 
disappear over the horizon. Some of 
these effects are really very 
impressive. 


This game, like the others so far 
produced by Software Invasion, is an 
excellent example of what can be 
achieved on the BBC and is highly 
recommended. | 


НИН ИННИ ИННИ 


Program : Felix and the Fruit Monsters 
Supplier: Program Power 

Price 3: £7.95 
Rating : ** 


Felix апа the fruit monsters is yet 
another program based on the  Snapper 
type of maze game. This one does have a 
difference in that you have to protect 
a fruit from marauding monsters until 
the on-screen timer reaches zero. 

In my view, this game lacks the 
originality to make it as worthwhile as 
some of the other programs on the 
market, even though the game does get 
Slightly better as it progresses 
through its different stages. The sound 
soon becomes quite irritating but 
fortunately this can be turned off. 
This is not, as far as I am concerned, 
one of Program Power's better games, 
and does not come close to chef 
d'oeuvres like Killer Gorilla. 
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Program : 3D Bomb Alley 
Supplier: Software Invasion 
Price £7.95 

Rating LIII. 


o 
о 
° 
o 


another 3 
dimensional program from Software 
Invasion, with graphics almost as good 
as those of Attack on Alpha Centauri. 


3D Bomb Alley is 


Your task in this game is to protect 
a fleet of ships from attacks by a 
number of relentless fighter aircraft. 
You control a battery of ground to air 
missiles, using either joysticks or the 
keyboard. This might sound easy, but 
wait until there are four or five 
bombers coming at you at once. This is 
a very addictive game and is good value 
for money. 


НИИИИИНПИИИПИИИПИИИИ E ETEETTETLLLTTUTTETTETELETETTTTTTET TETTE UTE TTE ELE TE TETTTET] 


Program : Painter 

Supplier: A and F Software 
Price : £8.00 
Rating : *** 


In this game you are a painter whose 
job is to fill in boxes by completing 
the lines surrounding them. At the same 
time you are being hunted by 'chasers' 
which you must avoid. Your only 
protection, other than speed and 
cunning, is the. ability to insert 3 
gaps in the lines, which the Chasers 
cannot cross. When you complete the 
lines the boxes change colour, and 
Slowly a character is built up. For 
example а space invader character and 
the A & F logo are formed. 


I didn't find this game very fast 
even thcugh it is written in machine 
code and it doesn't stand out in this 
highly competitive market. 


Program : Hunchback 
Supplier: Superior Software 
Price 2: £7.95 

Rating : **** 


Hunchback is one of two new releases 
from Superior Software. It is an 
extremely good version of the arcade 
game where Quasimodo has to cross a 
series of walls in order to rescue his 
beloved Esmerelda. There are bonus 
points for completing each wall as 
quickly as possible, but you have to 
concentrate оп the game so much that 
you forget about the bonus. 

There are 12 walls to navigate, and 
once you have done this, you go back to 
the first wall and the дате gets 
quicker (much quicker!). 

This game makes a nice change from 
the  "Blast-'em-out-of-the-sky" type 
games and is thoroughly recommended. 
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Program : Felix in the Factory 
Supplier: Program Power 

Price 2. £7.95 

Rating. : **** O 


Felix іп the factory is one of the 
new games on the market which takes its 
origins from the Monsters / Krazy Kong 
type games which involve ladders and 
walkways. 

The idea for this game is very novel 
and the graphics are good. You take the 
part of Felix who has to run around the 
conveyor belts, up the ladders and 
along the walkways to get a can of oil 
with | which һе сап re-fuel the 
generator. As time goes by, the 


generator slowly runs out of oil, and 
once run out, Felix dies. 
Rats, and monsters of all kind 
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generator going. All in all, this is a 
very good game, but the key layout left 
me with a sore hand. 


ТТТ ЕТТТ ТТТ ТТТ 


Program : Q*bert 

Supplier: Superior Software 
Price : £7.95 

Rating : **** 


Q*bert is the other new release from 


Superior Software and it is as every 
bit as good as Hunchback. 

The game is difficult to explain, 
but in principle you (with a very long 
nose indeed) move over a 3D pyramid, 
changing the colour of the slab that 
you are on. Once all of the slabs have 
changed colour, you proceed to the next 
level. Sounds easy? Well there are a 
few snakes which are out to get you. If 
this still sounds easy then buy the 
game and find out! 


hamper you in your quest to keep the 


Ав with all Superior Software games, 
you can choose the starting level and 
there 15 also a high score table. This 
is very good value for money indeed. 
НИН ПЕН ИІНІНЕ 
Program : Bug Blaster | 
Supplier: Alligata 

Price 2: £7.95 

Value y SUE 


Bug Blaster is one of the best games 
around for the BBC micro. It is fast, 
colourful and fun to play. It is one of 
the most addictive games I have ever 
played (and the most addictive one that 
our editor has played!). 

It is a very good version of the 
arcade game  'Centipiede' in which you 
are on patrol in a field full оғ 
mushrooms. Your aim is to avoid all of 
the creatures that roam around, апа 
Score as many points as possible. 

There is a centipede which gradually 
makes it way down the screen, a spider 
which moves across the bottom of the 
screen, fleas which fall from top to 
bottom and а scorpion, which if it 
touches a mushroom poisons it. If a 
centipede hits a poisoned mushroom it 
heads straight down the screen towards 
you. This is another program which is 
excellent value for money. 


The routine given does the usual printing of the error message and line number 
but follows this by listing the line where the error occurred automatically. This is 
achieved through the clever use of *FX138. To use it insert: 

10 ON ERROR PROCerrorhandler:END 
with the error handling procedure at the end of the program 


l000DEF PROCerrorhandler 
10100М ERROR OFF 
l1020REPORT 

1030РКІМТ " at line ";ERL 
1040*FX138,0,76 
1050*FX138,0,73 
1060*ЕХ138,0,83 
1070%ЕХ138,0,84 
1080AS-STRS (ERL) 


1090ҒОК K$-1 TO LEN(AS) 
1100А%-138 

1110Х%-0 
1120Ү%-А5С(МІр5(А65,К%,1)) 
ll30CALL&FFFA 

ll40NEXT K$ 
1150*FX138,0,13 
ll60ENDPROC 
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clock displayed on the screen, just 
type in the program and save it on tape 
or disc. Then try running it апа see 
what happens. With machine code 
programs it is always worth saving the 
first version before trying it out, 
just in case you have made а typing 
mistake. To save time, you can omit all 
lines where \ is the first character 
after the line number, as these are 
just comments. When the program is run 
it will prompt for the current time іп 
hours, minutes and then seconds. Enter 
these in standard 24 hour clock format. 
When Return is pressed after entering 
the seconds, the clock is activated. 
This results in the screen clearing and 
the time being displayed in white on 
blue іп а stripe at the-top of the 
screen in mode 7. This is updated once 
every second. 


Once the program is working (when 
all typing errors have been cured), it 
is possible just to save the piece of 
machine code that displays the time. To 
do this you should first save the 
original program listing for safety, 
and then run it to assemble the code 
into memory. When this has finished 
press Escape in response to the 'hours' 
prompt and type: 


*SAVE TIMER C09 +DF 


This will save the code on its own. 
To use the clock at some other time all 
you need to do is *LOAD the program 
into memory. Set the variables А%, X% 
and Y% to the hours, minutes апа 
seconds respectively and then type: 


CALL &С@@ 
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If you would like to have a digital 


November 1983 


4 Tested оп O.S. 1-2 and . 13 
Basies І and II 

g 

В 

: by D P Wright 

В program displays а continuously 

В updated digital clock at the top of the 
screen in mode 7. However, it is quite 

ü invisible to Basic, and you can run Basic 

p programs іп mode 7, or perform program 
editing etc without affecting the clock 

ü display. 

B 


to set the timer. Having initiated the 

timer, you can ignore its operation and 
other programs can be run 
independently. The only rules you must 
follow are not to change mode and not 
to use the user defined graphics 
characters as these are stored in the 
memory space where the machine code 15 
executing. Since these аге пос 
effective in mode 7 there should be no 
conflict here. Note too, that you only 
have 24 lines to use on the screen and 
not 25, as the top line is now reserved 
for displaying the clock. 


When the timer is running, operation 
of the cassette and disc systems etc. 
are unaffected. However, should you 
wish to disable the clock, simply type 
*FX13,5. It сап be restarted, as 
described before, with CALL&C@@, after 
setting А%, X% and Y% to the hours, 
minutes and seconds as required. 


For the more ‘technically minded, we 
provide ап explanation of the 
operation of the program. 


Essentially, the program sets up the 
Beeb's interval timer to generate an 
event every second. This event is then 
used to display the time. The actual 
time display is done through direct 
pokes into the video display as OSWRCH 
is a non re-entrant routine апа thus 
gets confused if this call is used 
whilst the foreground process (your 
program) is printing a character as 
well. This method can lead to other 
problems if trying to display 
characters in a scrolling area of the 
screen. In this program the text window 
is redefined so that the top line does 
not scroll. 
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line 860) it jumps Шо the 
initialisation routine. This sets up 
the time stores and then selects mode 7 
with the appropriate text window to 
protect the display. The event vector 
is then set up at  &220 before 
initialising the interval timer and 
enabling the event. 

In operation the time is displayed 
on the screen and the interval timer is 
set going. Опе second later the 
interval timer crosses zero and ап 
event is generated. When this occurs 
control is passed to the interrupt 
routine (ROUTINE at line 170) pointed 
to by the vector. The interval timer is 
set back to 1 second before zero. The 
clock value is then incremented in its 
internal version, with checking for the 
correct bounds for minutes and seconds. 
These values are then converted to BCD 
апа then ASCII before being poked 
straight into the screen memory. 


The generation of an event is of 
much more general application. With 
this it would be possible to poll 
devices like thermometers, pumps and so 
on, once every second to run the 
central heating, and this would again 
be performed completely invisibly. 


1@ REM Program TIME 

20 REM Version В1.0 

30 REM Author D.P.Wright 

40 КЕМ BEEBUG November 1983 

50 КЕМ Program subject to copyright 
60 : 

70 REM Disable event for re-assembly 
80 *FX13,5 

90 OSBYTE=&FFF4 

100 OSWRCH-&FFEE 

110 OSWORD-&FFF] 

120 FORI-9TOI 

130 Р%=&С@@ 

140 [OPTIS*3 

150 JMP START 

160 : 

170 .ROUTINE 

180 N--clock int. service routine-- 
190 N--Save contents of all regs.-- 
200 PHP:PHA 

210 TXA:PHA:TYA: PHA 

220 \---reset clock--- 

230 LDX #CLOCK MOD 256 

240 LDY $CLOCK DIV 256 

250 LDA #4 

260 JSR OSWORD 
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When the program is called (START at 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


. 680 


690 
700 
719 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
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N-—--increment time---- 

INC SECOND 

LDA SECOND:CMP %60:ВМЕ a 

LDA #00:5ТА SECOND 

INC MINUTE 

LDA MINUTE:CMP %60:ВМЕ a 

LDA %00:5ТА MINUTE 

INC HOUR 

LDA HOUR:CMP #24:BNE a 

LDA %00:5ТА HOUR 

„а | 

“----дізріау clock on screen---- 
N--Set back/foreground colours-- 
LDA 41 32:5ТА НІМЕМ+40 

LDA %157:5ТА НІМЕМ--41 

LDA #135:STA НІМЕМ--42 

LDY #57 

LDA HOUR:JSR OUTPUT 

LDA #58:STA HIMEM, Y: INY 

LDA MINUTE:JSR OUTPUT 

LDA #58:STA HIMEM, Y: INY 

LDA SECOND:JSR OUTPUT 
N---restore contents of кед5.--- 
PLA: TAY: PLA: TAX: PLA: PLP 

RTS 


N----splits value in Асс.---- 
N----into 2 BCD numbers 
N----and outputs ASCII 
\----values on screen. 
e OUTPUT 

LDX #9 

SEC 

eloop SBC #10 

BMI b 

INX:JMP loop 

„о DEX 


ТХА:АПС #48 

STA HIMEM,Y: N--MSB-- 
INY:PLA 

ОТА HIMEM,Y: \--LSB—— 
INY:RTS 

] 

КЕМ---дӢаса for clock and time--- 
CLOCK=P% 

І CLOCK=&FFFFFF9C 

? (CLOCK+4) =&FF 
Р%-р%--5 

HOUR=P% 

MINUTE=P$+] 
SECOND=P3+2 

P$-P$43 

ГОРТІ%%3 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


— 


1010 


ВЕЕВОС МАС 


o START 

N---initialisation routine--- 
N---Initialise time--- 

STA HOUR:STX MINUTE:STY SECOND 
N---Mode7--- 

LDA #22:JSR OSWRCH 

LDA #7:JSR OSWRCH 

N---Change text window--- 

LDA #28:JSR OSWRCH 

LDA #@:JSR OSWRCH 

LDA #24:JSR OSWRCH 

LDA #39:JSR OSWRCH 

LDA #2:JSR OSWRCH 


N--Set add. of int.service rout.- 


LDA #ROUTINE MOD 256 


1020 


1030 
1040 


1050 


1060 
1070 
1080 
1090 
1100 
1110 
1129 
1130 
1140 
1150 
1169 
1170 
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STA &2290 


LDA #ROUTINE DIV 256 

STA 68221 

JSR ROUTINE 

\---Enable clock interrupt-—-- 
LDA #14 

LDX #5 

JSR OSBYTE 

RTS 

] 

NEXT 

REM Set up clock and start it 
INPUT! "HOURS "AS 
INPUT"MINUTES ",Х% 

INPUT" SECONDS ",Ү% 

CALL& CEE 
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by Trevor Pullen 


Interrupt programming is a subject which is often avoided, and is treated by many 
with much uncertainty - an unfortunate state of affairs since the use of interrupts 
is fundamental to many forms of interactive and real-time computing applications. In 
this article, which introduces the subject, Trevor Pullen explains what interrupts 
are, how they may be generated and shows you how to write simple programs using 
them. Although the interrupt handling routines have to be in machine code, they are 
quite short and can easily be incorporated into any Basic program as we show here. 


WHAT ARE INTERRUPTS? 
ES OF CUIR ЕШ. Жыр 
purpose is to interrupt or alert the 
processor to a particular event having 
occurred. The event causing the 
interrupt пау Бе either internally or 
externally generated and need have no 
bearing or relation to the current 
status of the processor. The important 
point is that on receipt of the 
interrupt, the processor will leave its 
current task, service the interrupt, 
and then resume computation where it 
last left off. Hardware  interrupts оп 
the Beeb are of two kinds called IRQ 
and NMI. These are very similar except 
that NMIs (Non Maskable Interrupts) 
cannot be ignored whereas IRQs 
(Interrupt Requests) can be disabled by 
software. The BBC micro also provides a 
'packaged' set of interrupts called 
events, which are much easier to use. 


A computer that uses interrupts will 
often give the appearance of being able 
to carry out several tasks 
simultaneously. The ВВС micro, for 
example, can still accept input from 
the keyboard even when it is busy doing 
Something else, like listing a program 
on the screen. The information you type 
in is not lost, but carefully stored 
away for use later on. The example 
programs іп this article will 
illustrate this point even more 
effectively. Hopefully, even from this 
brief introduction, the potential 
offered by the interrupt facility can 
readily be seen. 


Before we consider any programs in 
detail, there are a number of general 
points that need to be made. 


(a) There are limits to the time 
that can elapse between the generation 
of an interrupt and the return of 
control to the main user program. In 
the BBC User Guide, page 465, a maximum 
time of less than 1 millisecond is 
recommended. It should be remembered 
though, that since the 65@2 processor 
runs at 2MHz, this gives time for at 
least 600 instructions to be executed, 
which should be sufficient for most 
applications! 


(b) On entering the interrupt 
handling routine, the current values of 
the A, X and Y registers, together with 
the processor status byte, must be 
saved, to be restored to their original 
values once the interrupt has been 
serviced. 


(c) It is a characteristic of the 
BBC machine that ‘interrupts’ and 
'events' indirect via locations in page 
2 of memory. It is thus necessary to 
make the relevant location (vector) 
point to the beginning of the user 
routine. Further, before enabling any 
events, the computer must be set in the 
binary mode (and not BCD - Binary Coded 
Decimal - mode). 


(а) At this stage do not worry about 
implementing the points (b) and (с) 
Since these will be covered in the core 
program, to be given later. 


HOW MAY INTERRUPTS BE GENERATED? 


There are two major types of 
interrupt available to the user, namely 
internally and externally generated. 


The internally generated interrupts, 


on which this article will concentrate, 
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those 


шау then be subdivided into 
generated by the user 6522 Versatile 
Interface Adaptor (VIA) and those 
generated Бу other 'events' within the 
micro. | 


Interrupts from the 'outside  world' 
are also handled by the user 6522 VIA 
but will not be covered in this 
article. 


To start with it is the interrupts 
generated by the occurrence of а 
particular event, which will Бе 
considered. These events are summarised 


below, but for further details see 
pages 426 and 465 in the BBC User 
Guide. 


which 


The event code is the number 
will Бе entered into the core program 


and governs which particular event is 
enabled. Only events which have been 
enabled can cause an interrupt. Such 
events сап Бе enabled and disabled by 
means of *FX calls (see User Guide as 
above) as an alternative to the machine 
code which we shall use. This again 
will be covered and explained when the 
core program is set up. 


At this stage, we shall not develop 
our ideas on interrupts further, but 
simply say that ап interrupt is 
generated upon any of the above ‘event’ 
conditions being fulfilled, assuming 
that the 'event' has been enabled. How 
to cope with all this is the subject of 
the next section. 


EXAMPLES OF INTERRUPT HANDLING 


Before we look at any specific 
examples, we will look at a skeleton 
program (the 'core' program) that we 


can then use as a Simple pattern for 
our programs. The core program, 
written іп 6502 assembler, is in fact 
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be used readily in any Basic program. 
The procedure is called PROCASSEMBLE 
and is contained in lines 1000 to 1549. 
The purpose of the procedure is to 
assemble the machine code into the area 
of memory reserved by the DIM 
instruction in line 1010. This is done 
by calling the procedure in the main 
program at line 110. Nothing happens 
until we call the assembled code in 
line 120. 


The core program: 


ШОТТ 


10 REM Program INTRP] 

20 REM Version В1.1 

30 REM Author Trevor Pullen 

40 КЕМ BEEBUG November 1983 

50 REM Program subject to Copyright 
100 MODE 7 

110 PROCassemble(4) 

120 CALL start 

130 END 
1000 DEF PROCassemble (ECODE) 
1010 DIM EVENTS 200 
1020 FOR PASS-0 TO 3 STEP 3 
1030 P%=EVENTS 
1040 [ 
1050 OPT PASS 
1060 .start 
1070 CLD 
1080 LDX #(ECODE) 
1090 LDA #14 
1100 JSR &FFF4 ;enable event 
1110 LDA #(entry MOD 256) 
1120 STA 8220 ;lo byte 
1130 LDA #(entry DIV 256) 
1140 STA 8221 shi byte 
1158 RTS 
1160 .entry 
1178 PHA:TXA: PHA: TYA: PHA: PHP 
1500 PLP: PLA: TAY: PLA: TAX: PLA 
1510 RTS 
1526 ] 
153@ NEXT PASS 
1548 ENDPROC 


;event code 


presented as a procedure so that it can. required event 
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Explanation: 

There аге two separate routines 
contained in the core program. One, 
identified Бу the label START, enables 
the event specified (depending on the 
value assigned to the variable ECODE 
when calling the procedure 
PROCASSEMBLE) and sets the indirection 
vector to point to the start of the 
interrupt routine, identified Бу the 
label ENTRY. The START routine could be 
in Basic using *FX14 to enable the 
(in this case *FX14,4) 


nini 
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and the '?' indirection operator to set 


the vectored address (see User Guide 
pages 426 and 499). 


The interrupt handling routine at 
ENTRY simply contains, at line 1170, 
the instructions to save registers A, X 
and Y together with the processor 
status byte, and at line 1500, the 
corresponding instructions which 
restore all the registers again before 
returning to the main program. The 
interrupt handling routine itself is 
inserted between these two lines. All 
our examples will be based on this 
outline program. 


PROGRAM 1 


provide аа continuously 
counter on the 


Task: To 
incrementing 
Screen. 


Method: Since a regularly recurring 
interrupt is required the ‘start of 
vertical sync pulse' seems a logical 
choice. Thus call PROCASSEMBLE with 
ECODE set to 4 in the core program. 
Note that this program may easily be 
extended, by the addition of a few more 
counters, to provide a real time clock 
(see article on Mode 7 Timer in this 
issue of BEEBUG) . 


Program: 
100 MODE7:2?2&71290:VDU28,0,24,39,1 


1180 INC &70 
1190 LDA #59 


;increment 1st counter 
;interval 


1200 СМР &7@ ;interval reached? 
1210 BNE finish sno - exit 
1220 LDA #0 ¿reset 


1230 STA 870 
1240 INC 871 
1250 LDA 410 


;first counter 
;increment 2nd counter 
;2nd counter counts to 


10 
1260 CMP 871 ;counter reached 10 
1278 BNE display;not yet 
1280 LDA #@ reset 


1298 STA &71 
1300 .display 
1310 ША &71 
1320 ADC #47 
1330 5ТА &7С15 
1340 .finish 


;2nd counter 


;get 2nd counter 
;convert to ASCII 
¿display on screen 


we have shown above only those lines 
that are additional to the соге 


program already listed. 


Explanation: Upon receipt of each 


interrupt, and they occur every 1/5@th 
of a second, a counter is  incremented. 
When the value set by "interval" (in 
the example 50) is reached, a second 
counter is then incremented. In each 
case when the limiting count value is 
reached, either 'interval' or 110", the 
appropriate counter is zeroed. The 
final section of the program converts 
the value іп 871 to ASCII and displays 
it. In the main program, the memory 
location 871 is initialised to zero (in 
line 100) before assembling and calling 
the interrupt routine. 


PROGRAM 2 


Task: To provide audio feed back 
upon each keypress. 


Method: This time 'event' 2 is being 
used, so set the  'event code! to 2. 
There аге two additions to the program 
since a data block to execute a sound 
command needs to be set up as well. 


Program: 


60 FOR 1=1 TO 8:READ A:?(&6F+I) =A:NE 
XT 
70 DATA 1,0,&F1,&FF,&C8,0,1,0 
118 PROCassemole (2) 
1180 ROL A ;double range 
1190 STA &74 ҙзауе value 
1200 LDX {&7@ 
1210 LDY 40  ;execute 
1220 LDA %7 ; SOUND 
1230 JSR &FFF] ;instruction 


Again, only lines additional to the 
core program are given above. 


Explanation: The data block set up by 
lines 60 and 70 provides the necessary 
information for a SOUND command to be 
executed. In the interrupt routine 
lines1180 and 1190 then take the ASCII 
value of the key pressed, double it to 
increase the resulting frequency range, 
and store the result into the 1о0-Буғе 
of the frequency data so that the sound 
generated will partly depend on the key 
pressed. Lines 1200-1230 then execute 
the sound command (see also page 461 in 
the User Guide). Once you have run this 
program, you will have а musical 
keyboard for your BBC micro, regardless 
of what you do, until you press Break 
(or switch the machine off). 
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CONCLUSIONS | 

This article has given а fairly 
elementary introduction to the concepts 
and application of interrupts. The main 
problems in using and applying 


interrupts are really knowing how to 
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relevant event апа then 
remembering to redirect the required 
vectors. Іп a second article, I will 
explain the use of the 6522 VIA іп 
dealing with both internal and external 
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by Philip Ге Grand 


Many members have expressed interest in ROM expansion boards for the Beeb. We 
have tested three of the boards now available and present our report to guide you in 
your choice. Fitting and using all three ROM boards gave our reviewer some 


unexpected surprises. Now see what we think of these products. 


Supplier: WATFORD ELECTRONICS, Cardiff 
Rd, Watford, Herts. 
Price : £35 + VAT + p.& p. (£41.49) 


SUPPLIER: SIR COMPUTERS LTD., 91 
Whitchurch Rd., Cardiff, S.Glamorgan. 
Price : £35 + VAT + p.& p. (£41.44) 


SUPPLIER: ATPL LTD., Station Road, 
Chesterfield, Derby. 
Price : £38 + VAT + p.& p. (£44.85) 


WHAT IS A ROM BOARD? 

As you may know, the BBC micro has 
a facility for using so-called 'Paged 
ROMs'. This means that you сап 'page 
out' or de-select the Basic ROM in your 
machine and select any one of 3 other 
ROMs or EPROMs plugged into the sockets 
provided under the keyboard. Both EXMON 
and WORDWISE operate in this way. An 
EPROM is plugged in, and called up as 
an alternative to Basic with commands 
like *EXMON (or *E) and *WORDWISE (or 
хү.) o 


As time goes Бу, more and more 
utilities and alternative languages are 
being offered in ROM or EPROM, and the 
3 spare sockets are soon filled - 
especially since the disc filing system 
(DFS) occupies one of these sockets. In 
practice, the BBC micro's operating 
system can cope with up to 16 paged 
ROMs, and a number of manufacturers 
have produced add-on boards to extend 
the number of physical sockets to that 
number. Some also allow you to locate 
RAM  (read/write random access memory) 
as an aid to EPROM development. It 
should Бе noted that RAM placed in the 
paged ROM sockets cannot generally Бе 
used for storing Basic programs. 


GENERAL COMMENTS 

All of the ROM extension boards 
reviewed were a standard double sided, 
fibreglass printed circuit board. They 
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down, which may necessitate removing 
the board for transit of the micro. The 
board from Sir Computers was the only 
one without printed identification of 
the sockets. This identification 15 
useful іп determining the order of the 
Sockets, although the markings on the 
ATPL board were partially obscured by 
the ROM sockets themselves. They all 


had header pins оп the under-side of 


the boards, allowing them to stand in 
the Веер'ѕ ROM, CPU (Central Processor 
Unit) or ADC (Analogue to Digital 
Converter) Sockets. Оп two boards, 
these pins were a thin type, so that 
inserting them into the Beeb's own 
Sockets, does not over enlarge the 
holes of the sockets if you want to 
remove the board at a later date, and 
replace the original chip - useful if 
your machine goes wrong under 
guarantee. The ATPL version supplied, 
however, had large pins, although we 
understand that smaller pins will be 
used on later production models. 


For all of our tests, we inserted 
relevant DIL sockets in the Beeb and 
put the boards into these, to prevent 
widening of the holes in the case of 
the ATPL and also to help raise the 
boards clear of any power leads or 
components that were in the way. It was 
found that all of the boards clashed 
with the power leads of our Beeb and 
would not fit properly unless the leads 
were bent over! This is а delicate 
operation, since the power lead 
connectors are easily broken. А11 of 
the boards carry between 5 and 10 extra 
chips for buffering and decoding, апа, 
in ATPL's case, there is a small 
battery charger option for the battery 
back-up circuit. The price differences 
between the boards are small апа 
insignificant. | 


WATFORD ELECTRONICS 
The Watford board is the lightest 


one reviewed here, and the thinest. To 
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fit it, you must be prepared to do some 
very fine soldering inside your ВВС 
micro. The ROM sockets are arranged in 
а 2 by 7 layout enabling easy removal 
of any of the ROMs at any time, should 
you wish to change any. The board can 
take up to 13 ROMs and, in two of the 
Sockets on the board, you can mix ROM 
and RAM, allowing a particular ROM to 
have its own work space. There are link 
options on the board allowing you to 
select which type of ROM or RAM you 
wish to use. The board plugs into the 
ROM socket labelled IC 100, and any ROM 
that was occupying that space must be 
moved out onto the new board. Next, 5 
wires from the board must be soldered 
to IC 76 and IC 14 on the main BBC 
board. For this job you need a fine 
tipped, low power (about 18W or lower) 
soldering iron, 22 SWG solder, and a 
steady hand. Finally, a socket with two 
wires on, for enable in and enable out, 
is plugged in place of link S21. 
Pushing the board into the vacated ROM 
Socket is quite unnerving since the 
whole board flexes very easily, and 
when fitted, it stays curved. Тһе 
instructions бау this is correct, and 
not to worry! 


The board has small mounting 
pillars, although іп our machine, it 
rested on the cassette interface socket 
with the other supports floating in mid 
air. When you insert any extra ROMS, 
the board bends greatly, since «һе 
Sockets require the ROMs to Бе pushed 
home with a substantial force. 


In use, the board covers the RAM 
and video areas which led to 


over-heating, causing some systems to 
crash after a few hours 


of use. The 
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instructions also recommend fitting a 
fan to the Beeb, although this would 
mean extensive modification of the case 
or using it with the lid off. 


The documentation supplied consists 
of a single sheet of instructions and 
diagrams, which аге very clear апа 


Concise. 


SIR COMPUTERS LID. 

This board is made of thick fibre- 
glass which will not bend easily, апа 
provides quite substantial support when 
inserting ROMs. The sockets аге 
arranged in a 3 by 4 layout, allowing 
12 extra ROMs to be used, but no RAM, 
together with the 4 ROM sockets already 
in the BBC micro. This layout makes it 
hard to remove a ROM in one of the 
middle row of sockets if the outer rows 
are filled unless you have ап I.C. 
insertion tool. We believe that future 
issues may have a RAM option as well. 


To fit this board, no soldering is 


required. Once again the power 
connectors inside the Beeb must be bent 
over to give the new board clearance. 
Then the CPU must be removed, but to do 
this, you may find it easier to remove 
the user 6522 first, then the CPU and 
finally, the 6522 replaced. Тһе CPU 
then plugs into the socket on the ROM 
board. In our tests we plugged the 
board into an extra 4@ ріп socket, 
placed in the Beeb's CPU socket, to 
prevent any hole enlargement. Finally, 
link S21 is replaced with a flying lead 


connector to the ROM board. 


The sockets used are the same type 


as used on the Watford board, however 
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insertion of ROMs now does not flex the 
board, but puts a heavy strain on the 
CPU socket and could possibly cause 
damage to the socket and main board if 
any force was applied. There is no 
other form of support. 


The documentation consisted of a 
single sheet with no diagrams, although 
the instructions were clear. This board 
worked well, but it would have Бееп 
nice to see some extra sopport, to take 
the strain off of the CPU socket. 


ATPL LTD. 

The layout of the sockets on this 
board also makes it difficult to remove 
any ROMs in the centre but they are 
generally easier to get at than on the 
Sir board. This board is also made from 
a thick fibreglass which does not flex 
easily, and was the heaviest of all the 
boards tested. 


To fit the board it is necessary to 
remove the operating system ROM and the 
analogue to digital converter chip, 
which plug into corresponding sockets 
on the ROM board, and plug the board 
into the two vacant sockets. This 
arrangement leads to a very stable 


board, | with the weight evenly 
distributed. A flying lead is connected 
to link 521. If during manufacture the 
solder resist does not cover the board 
correctly, ог for some reason it comes 


off just above the 0.5. ROM socket, 


then the board could short out on the 
two diodes immediately above this 
Socket in the Beeb. We used extra 
mounting sockets to raise the board to 
gain sufficient clearance. When fitting 
this board, it was also found necessary 
to bend a couple of its capacitors 


flat, so that the keyboard would fit 
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back properly again, though this should 
not prove ‘ necessary ав current 
production versions (issue 3) use much 
Smaller capacitors. 


The sockets used are an older type 
which make it easier to insert and 
remove the ROMs. The board will accept 
ROM and КАМ chips in various 
combinations, depending on your 
selection of the links at the top of 
the board. Тһе CMOS type RAMS are 
usable on these boards, enabling the 
optional battery back-up kit to Бе 
added, (thus allowing the memory 
contents to remain in the RAM even 
after the Beeb has been switched off). 
The use of RAM is to allow a program in 
another ROM to use this as work space 
or, if you are developing your own 
programs to be blown into EPROM, you 
can test it out in its correct 
operating position and alter it if 
necessary before committing | it Со 
EPROM. No overheating problems 
occurred, since the board covers the 
two 6522s, and the serial and video 
chips, which do not appear to generate 
as much heat as the Beeb's RAM 


The documentation supplied is 
excellent, consisting of a file of 11 
pages of instructions and diagrams, and 
all the information you need for the 
various link options. This board was, 
in our opinion, the best of the three 
tested, but still not without its 
faults. 

CONCLUSIONS 

One major difficulty that these and 
any other expansion boards face is that 
the Beeb маз not ` designed to 
accommodate additional boards, although 
able to cope with up to 16 paged ROMs. 
These three boards have all adopted 
Slightly different solutions, with 
varying degrees of success. We believe, 
from our tests, that the major factors 
to consider when choosing a ROM board 
are ease of installation, reliability 
in operation and the stability of the 
installed board (particularly important 
for those who expect to insert and 
remove ROMS quite frequently). As a 
general comment, it would appear that 
most of the problems encountered with 
these boards would be resolved if they 
were firmly mounted in a box of their 
own. Replacing ROMs would then be much 
easier, and would not involve removing 
the lid of the Beeb on each occasion 
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ме at | Е | 
"md ISC SNARFER (32k) 
Mid | by B J Last and Mathew Rapier | 


SNARFER is a disc utility which amongst other things will allow corrupted or lost 
files to be retrieved. It makes a useful companion to our recently published Disc 
Sector Editor, and Disc Sector String Search. 


SNARFER is in fact a suite of 
utility procedures all put together in 
one program to provide a set of 
extremely useful commands not available 


directly in the DFS itself. These 
commands аге roughly equivalent to 
those available in the new disc utility 
ROMs appearing оп the market. Whilst 
not as comprehensive as the ROM 
versions, this program has the same 
basic capabilities, and is easy to use. 


The functions of  SNARFER апа 
corresponding commands are: 


E - Examine disc sectors 
R - Recover disc sectors 

S - Save recovered file 
CL- Change load address 
CE- Change execute address 
Q - Quit to Basic 

* — OS Command 


The program is menu-driven for ease 
of use, with Escape returning the user 
to the menu. SNARFER is very useful in 
file recovery. The Examine option may 
be used to find a deleted file on the 
disc and decide on its length. To do 
this, you need to specify a track 
number (0-39 or 0-79 depending on disc 
being used) and a sector number (0-9) 
whereupon the constants of that sector 
will be displayed on the screen. To 
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recover a file, you will need to locate 
the beginning and end of the file on 
disc and calculate the length of the 
file in bytes (usually number of 
Sectors multiplied by 256). SNARFER 
requires this to be performed manually, 
but by using our Disc Sector Editor 
(BEEBUG Vol2 No3 p27) and Disc Sector 
String Search  (BEEBUG Vol2 No5 р31), 
this can become a fairly automated 
process. 


With this information you сап then 
proceed to use the Recover routine to 
load all the sectors belonging to the 
file into memory (from address 63000 
onwards). Having recovered the disc 
sectors belonging to the file into 
memory, the file can now Бе resaved 
onto disc using the SAVE command. It is 
still possible that the file may be 
incomplete or corrupt іп some way, but 
at least it is now accessible in the 
normal way. | 


In SNARFER all the * commands can be 


‘entered, as іп Wordwise, and are passed 


to the operating system for execution. 
For example, you can use  *DRIVE as 
normal to select the default drive as 
the procedures read the current drive 
number through an OSGBPB call and use 
this drive for loading sectors. 


The commands to change the load and 
execution addresses of files are also 
very useful as the normal DFS save file 
option sets these to zero by default. 
You can set these values for any file, 
so that you can alter the load address 
for *LOAD etc. This is often needed 
with intelligent file moving programs 
that will move a file to its load 
address rather than assuming &E@@ (like 
Watford Electronics DFS *MLOAD). These 
commands are particularly simple to 
implement with OSFILE (а routine at 
&FFDD in the 0.5.), aS can be seen from 
the procedures PROCRELOAD and 


PROCREEXEC in the program listing. 
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This utility together with the Disc 


Sector Editor and Disc Sector String 
Search, should be оп everyone's 
utilities disc. This program provides a 
much simpler file recovery system than 


10 REM Program SNARFER 

20 REM Version B1.@ 

30 REM Author B.J.Last & BEEBUG 

40 REM BEEBUG November 1983 

50 REM Program subject to Copyright 

60 ONERROR GOTO 1290 

70 HIMEM=&3 002 

80 *OPT1,2 

90 @%=4 

100 БІМСВ%20 

110 1епдеһе-1:4гіует-й 

120: 

130 REPEAT 

140 MODE7 

150 FORA=@TO] : PRINTTAB(12) ;CHR$157;CH 
R$135;CHR$129;CHR$141;"SNARFER" ;SPC (4) ; 
CHRS156:NEXT 

160 PRINTSPC(12);"A DISC UTILITY" 

170 PRINTSPC(4);"by B.J. Last and Mat 
thew Rapier" 

180 PRINT'"E - EXAMINE" 

190 PRINT"R - RECOVER" 

200 PRINT"S - SAVE RECOVERED FILE" 

210 PRINT"CL- CHANGE LOAD ADDRESS" 

220 PRINT"CE- CHANGE EXECUTE ADDRESS" 

230 PRINT"O ~ QUIT TO BASIC" 

240 PRINT"* — OS COMMAND" 

250 PRINT'"WHICH OPTION ?"; 

260 AS=GETS 

270 IFAS="E" THEN PROCEXAMINE 

280 IFAS="R" THEN PROCRECOVER 

290 IFAS="S"THEN PROCSAVE 

300 IFAS="C" THEN PRINT"C";:AS-GETS:I 
Е AS="L" THEN PROCRELOAD: ELSE IF AS="E" 

THEN PROCREEXEC 

310 IFASz"Q" THEN END 

320 IFAS="*" THEN PROCOSCLI 

330 UNTIL FALSE 

340 : 

350 DEFPROCEXAMINE 

360 PRINT''"EXAMINE" 

370 REPEAT 

380 PRINT''"Track",;:track-FNEVAL (0) 

390 PRINT"Sector", ; :Sector=FNEVAL (0) 

400 PRINT"Error 4";^FNREADSEC(&3009) 

410 FORN$-0TO255:A$-? (&3000--N2) 

420 ІЕА%<32 OR А%>126 А%-46 

430 IF (N% MOD 32)=@ THEN PRINT';^NS$, 


“94 


440 VDUA$:NEXT 
450 UNTIL FALSE 
460 ENDPROC 


the sector editor, together with many 
though the 
is still essential if you want 
to be able to modify the contents of a 


other useful 
editor 


routines, 


Sector on disc. 


480 DEFPROCRECOVER 

490 PRINT''"RECOVER" 

500 PRINT''"please type start track, 
sector and filelength in bytes." 


510 PRINT" Track" , ; : track-FNEVAL (0) : PR 
INT"Sector",;: sector=FNEVAL (Ø) : : PRINT" Le 
ngth",;s:length-FNEVAL (Ø) 

520 CLS: PRINTTAB(@,@) :"track/sector"™ 

530 address-&30900 | 

540 FORN%=8TOlength+256 STEP256 

550 PRINTTAB(@,2) ;track;TAB(6,2) ;sect 
or;TAB(12,2) ;"ERROR #" ;FNREADSEC (addres 
S) 

560 sectorssector-]: IFsector-19 secto 
r=9:track=track+] 

570 adar ess address? 250 

580 МЕХТМ% 

590 ENDPROC 

600 : 

610 DEFPROCSAVE 

620 PRINT''"SAVE RECOVERED FILE" 

630 IFlength--] THEN PRINT''"No file 
recovered" ! : PROCRECOVER 

640 PRINT''"Enter filename" 

650 INPUT S&AQ0 

660 X$-&70:Y2$-0:A2-Q 

670 1&70-&AQ00 

680 1%72-0 

690 1876-0 

700 1&7A-&3000 

710 1&7E-&3000--length 

720 CALL&FFDD 

730 ENDPROC 

748 : 

750 DEFFNEVAL(X) 

760 LOCAL Y,AS 

770 VDU1@,11 

780 X-POS:Y-VPOS 

790 INPUT А5 

800 IF AS="" THEN PRINTTAB (X, Y) GOTO 
790 

810 ОМ ERROR RUN 

820 A-EVAL(AS) 

830 ON ERROR GOTO 1296 

840 -A 

850 : 

860 DEFFNREADSEC (address) 

870 X$-&70:Y$-20:A2-6 


980 ?870-0:1&71-&A00:1&7521:1&79-0 


890 CALL&FFDI!:drive-?&A1-—48 
900 ?CB$-drive:! (CB%+1)=address 
919 2 (СВ%--5) 23:2? (CB$46) =&53 
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1&70-&A00 
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920 ?(CB2$47)-ztrack:? (CB248) sector :? ( 
CB$49)-&21 | | 1150 !&72=address 
930 Х%-СВ%МОр256 | 1160 CALL&FFDD 
940 Ү%-СВ%рІУ256 1170 ENDPROC 
950 А%=&7Ё 180: 
960 CALL&FFF] 1198 DEFPROCREEXEC 
970 -?(СВ%-10) 1200 PRINT''"CHANGE EXECUTE ADDRESS" 
980 : 1210 INPUT "FILENAME ",S$&AQ 
990 DEFPROCOSCLI 1220 PRINT"ADDRESS ";:address-FNEVAL (@ 
1000 PRINT''"OS COMMAND"! 
1010 REPEAT 1230 X$-&70:Y$-0:A2-3 
1020 INPUT "%"5%А00 1240 1870-%А00 
1030 X$-0:Y$-&A 1250 !&76=address 
1040 CALL&FFF7 1260 CALL&FFDD 
1050 PRINT"PRESS A KEY" :А5-СЕТ5 1278 ENDPROC 
1060 UNTILAS<>"*" 1288 : 
1070 ENDPROC 1290 IF ERR-17 THEN RUN 
1080: 1300 PRINT' : REPORT 
1090 DEFPROCRELOAD 1310 IF ERR<&BD THEN PRINT " at line " 
1100 PRINT''"CHANGE LOAD ADDRESS" ; ERL: END 
1110 INPUT "FILENAME ",S&AQ 1320 PRINT'"PRESS A KEY" 
1120 PRINT"ADDRESS ";:address-zFNEVAL (0 1338 A=GET 


1340 RUN 


1130 Х%-870:Ү%-0:А%-2 
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'"UIDE FOR THE 


ВС MICRO 


Reviewed by Mike Williams 


We review here three books for the more experienced user of the BBC Micro, 
particularly those who have progressed to the stage where they want to use machine 
code. Two of the books claim to introduce the subject of machine code for those 
new to this form of programming, but how well do they fulfill this task? То start 
with, we review a book that may well be a classic in the making - now read on. 
ШИИТИ 


The book begins Бу surveying the 
various operating system commands 
followed by a comprehensive description 
of the 6502 assembler language that is 
contained within BBC Basic. 


A very substantial chapter provides 
a detailed description of all FX 
(OSBYTE) calls and a further chapter 
Similarly covers all the OSWORD calls. 
One very useful section describes the 
vectoring mechanism of the Beeb and 
gives details of each vectored address. 


Events and interrupts are clearly 
described with a number of program 
examples. There is also a very good 


The Advanced User Guide for the BBC section on paged ROMs with details of 
Microcomputer, by А.С. Bray, A.C. how to interface a ROM with the 
Dickens and M.A. Holmes, published by operating system. 
4... ыды The remainder of the book, some 90 
pages, describes the hardware features 
This book is surely destined to of the Beeb, including the video 6845, 
become the Bible of every dedicated the ULA, both 6522 VIAs and all the 
user of the BBC micro. It covers very various interfaces. There are also 40 
comprehensively and іп considerable pages of appendices and even a main 
detail, every aspect of the machine's circuit diagram of the Beeb, courtesy 
operation. |. It is not primarily of Acorn. 
intended as a book for the beginner, 
though there is much that the beginner Many sectlons of the book are 
would find interesting. The book is provided with example programs and 
intended for the experienced user, and there mee also many clear and useful 
moreover one who has some familiarity diagrams. This сЕ DOOR Whioi the 
with 6502 assembler. Тһе purpose of experienced user will delight іп 
this book is to supplement the BBC User dipping SELLO p P and M ады 
Guide by providing a much more detailed information 15 revealed and explained. 
and comprehensive description of 6502 This book is a must, and is excellent 
assembly ^ language s programming, the value at the price of £12.95 for over 
operating -system and -the pec 200 pages packed with facts. — — — — 
microcomputer hardware. The book is Ce Ce eo а а аа « a аа o € а « a o & a e Me e p UL UP ee o^ а е e a a o ao a a а ә ° 
Spiral bound and matches very closely i pe ly Language Programming on the 
the appearance of the BBC User Guide. BBC Micro, by John Ferguson & Топу 


Shaw, published by Addison-Wesley, 200 
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pages, price £7.95. 


This book provides an introduction 
to 6502 assembler programming on the 
BBC micro. Some knowledge and 
experience of programming in Basic is 
assumed but otherwise the book is 
clearly intended for the newcomer to 
this form of programming. The text is 


enlivened by many diagrams and 
cartoons in an obvious attempt to 
popularise what Пав often been 
considered a difficult subject. 


However, a lot of detailed information 
is presented very quickly, perhaps too 


quickly - the book quite rapidly 
introduces subroutines, use of the 
Stack, parameter passing - and this 


before all but the simplest of 
addressing modes has been covered. 


The presentation of information on 
the page is not as attractive as it 
might Бе. The book is printed on poor 
quality paper such that the printing on 
the reverse side of the page shows 
through and distracts from the current 
page. Some of the diagrams appear very 
black and heavy, and off-putting to the 
reader. There are many programs listed 
by way of example. Unfortunately, 
these are all reproduced from dot 
matrix printer originals and 
reproduction is sometimes less than 
clear. 


The-book is excellent in showing how 
assembler programs are integrated and 
used within the framework of BBC Basic 
and there is adequate coverage of 
operating system calls апа other 
features of the BBC micro such as 
events and interrupts. Indeed the more 
advanced sections, shorn of е 
excesses of the early chapters, are 
very informative. There are various 
appendices including a systematic 


listing of all the assembler  mnemonic 
codes. | 


This із basically а good book with 
much useful information, which is 
somewhat spoilt by poor quality 
presentation and printing. The attempt 
to produce a popular beginners book on 
machine code programming does not seem 
to have been wholly successful, but 
nevertheless this is a useful addition 
to the books on this subject. 
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Discovering ВВС Micro Machine Code, by 
A.P.Stephenson, published by Granada, 
155 pages, price £6.95, 


This book is a straightforward 
introduction to programming in machine 
code using the 6502 assembler on the 
BBC micro. Indeed, the approach is 
rather serious and stolid, with much 
information presented in the early 
chapters, and yet little in the way of 
examples to show how that knowledge 
might Бе used. There is a useful 
description of how to use machine code 
from within Basic, followed by sections 
on number representation, registers and 
addressing modes. The program listings 
are again from а dot matrix printer 
but are quite clear as is the 
presentation of the whole book. 


The book, sensibly, does not attempt 
to cover the more advanced features of 
machine code such as interfacing or 
interrupt handling. Instead, it 
concludes with a useful chapter on 
programming techniques and guidelines. 
This is a good book for the serious- 
minded student of machine code and 
reasonable value for money. For the 
complete beginner, the book by Birnbaum 
(reviewed in BEEBUG Vol.1 No.9) must 
Still be the favourite, while the more 
experienced will need to look beyond 
these last two for coverage of more 
advanced topics and better, more 
informative examples. 
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Феб oo by Mike Williams 


Last month we presented the first of a series of articles on the Teletext made 
which started at the very beginning. We now continue with the second article іп the 
Series and introduce Teletext mode graphics. 


ШТИТИТИ 
| VDU COMMANDS 
At this stage it is helpful to 
introduce an alternative method of 
Sending Teletext control codes to the 
Screen, namely VDU commands. This 
avoids the need for the CHRS function, 
and can Бе a much more concise way of 
handling control codes апд other 
characters. The following statements 
are, for example, completely 
equivalent: 
PRINT CHR$134 CHR$157 CHR$131 CHR$136 
Hi HELLO" 
l by and . 
VDU134,157,131,136: PRINT" HELLO" 
You should Бу now Бе fairly VDU134,157,131,136,72,69,76,76,79,13,10 
confident about displaying coloured The codes 72 to 79 are the ASCII 


E 21... 21.4. 5. codes for the letters іп 'HELLO' and 
, 9 JA 4E the 13 and 10 are the codes for 


2.2. aa ө d dod oi: us <return><line feed», which are produced 
9 Y- ЭРӘРУ Ang dene. COLOUr automatically Бу the PRINT statement 
followed Бу the control code 157. 1 " inated b AP Dt To 
Hopefully, you also tried out for аа uc us 
ае = , che d ontrel de 136 for conclude this section, here is a short 
y d D M a K program which combines all the Teletext 


flashing characters. If you're not 
sure, try typing this into your micro mode features we have covered so far. 


| Teletext Duc Willians 


to see the effect produced: 100 REM Program BEEBUG5 

е " 110 REM Version В1.1 

PRINT CHR$129 CHR$136 "BEEBUG 120 REM BEEBUG November 1983 
You should see 'BEEBUG', in flashing 130 MODE 7 
red characters, displayed оп the 140 ON ERROR GOTO 260 
Screen. You can also make double height 150 FOR Ү=0 TO 23 
characters flash оп and off, but you 160 VDU 131,157,132,141,13,10 
must include the 136 control code оп 170 NEXT Y 
both lines, just as for the 141 control 180 VDU28,4,24,39,0 
code, unless of course you only want 190 VDU23,1,0;0;0;0; 
just the top or bottom half of the 200 PROCmsg2 (CHRS (136) *"BEEBUG",12,4) 
letters to flash. The control code 137 210 PROCmsg2 ("for",14,8) 
can be used to switch from flashing to 220 PROCmsg2 ("the",14,12) 
Steady colours, but only needs to be 230 PROCmsg2 ("BBC MICRO",11,16) 
used if flashing characters are to be 240 REPEAT UNTIL FALSE 
followed by steady characters on the 250 END 
Same line. Try this little example: 260 ON ERROR OFF :MODE7 
270 IF ERR<>17 THEN REPORT:PRINT" at 
PRINT CHR$129 CHR$136 "BEEBUG" СНВ9137 line ";ERL 
"MAGAZINE" і 280 ЕМ” 
500 DEF PROCmsg2 (MS, X$, Y$) 

Notice too, how the 137 control code 510 PRINT TAB(X%,Y%) M$ 
produces an apparent space between the 520 PRINT TAB(X%,Y%+1) sMS 


two words so no extra space is needed. 538 ENDPROC 
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The first part of the program, lines 
150 to 170, puts most of the control 
codes required at the beginning of each 
line on the screen. These control codes 
specify yellow (131) background (157), 
blue (132) double height (141) text. 
The VDU commands in line 180 апа 190 
redefine the text window to protect the 


control codes, and delete the flashing 
cursor from the Screen. The 
instructions in lines 200 to 220 then 


display four lines of double height 
text on the screen, using for 
convenience, a procedure called 
PROCmsg2 defined іп lines 500 to 530. 
This just saves having to type every 


character twice when producing double 
height characters. The REPEAT UNTIL 
loop in line 240 avoids the program 


terminating and hence displaying a "> 
character on the screen. The program 
can be stopped by pressing Escape. 


TELETEXT GRAPHICS 
Now let's look at Teletext graphics. 
In many ways this is similar to the 
text displays we have already seen, in 
that the effects are again determined 
by control codes. Try typing in the 
following instruction: 


VDU 145,240,252,255,252,240,13,10 


The value of 145 specifies red 
graphics, while the values of 240, 252 
and 255 are the codes of three graphics 
characters which уои should see 
displayed on the screen. The codes of 
13 and 10 at the end of the line are 
simply «return» and «line feed». The 
shape produced should look like this: 


Other values in place of 145 produce 
different coloured graphics as shown in 
the table: 
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Each graphics character comprises а 
rectangle | consisting of six small 
Squares, coloured or blank. The full 
range of available graphics characters 
is listed in the User Guide on pages 
488 and 489. You can also work out for 
yourself the code for any particular 
graphics character as follows. 


Each cell that is coloured 
contributes a value towards a total to 
which should also be added 32 + 160. 
Thus this character has a code of 1+ 8 
+ 16 + 32 + 160 = 237. 


Be careful when referring to the 
User Guide as the characters are shown 
with white representing the coloured 
parts and black the blank parts of each 
Character. It is easy to interpret this 
the wrong way round. 


If you compare the table of graphics 
characters on pages 488 and 489 of the 
User Guide with the table of text 
characters on pages 486 and 487, you 
will notice that the codes of the 
graphics characters coincide with those 
for lower case letters and certain 
other characters. It is only the choice 
of control code - graphics or text - 
which determines what is displayed on 
the screen. It also means that all the 
alphanumeric characters (mostly upper 
case characters) shown in the table of 
graphics characters, can still be 
displayed on the screen, even when we 
are in graphics mode. One difficulty in 
dealing with graphics characters is 
that we cannot type them in directly 
from the keyboard as we can with 
alphanumeric characters, апа this is 
d be ful 
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EXAMPLE ОҒ TELETEXT GRAPHICS 


We will пом develop a program 
illustrating the изе of  teletext 
graphics, called DUCKl. We need to put 


together some graphics characters to 
form the approximate shape of а duck. 
This is easier to design if we have a 
grid to work with as shown; 


We shall want our duck to be yellow, 
of course, so we will replace the space 
cnaracters to the left of the duck by 


the correct control code for yellow 
graphics, namely 147. Тһе reason for 
including the 147 control character 


here will become clearer later on. We 
will define our duck as a character 
string: 


duck$ = CHRS147 + CHR$255 + CHRS255 + 
CHR$255 + CHR$1] + CHRS8 + CHRS8 + 
CHRS147 + CHRS252 + CHRS176 


The definition of our duck starts at 
the bottom left hand corner with the 
control code for yellow graphics (147). 
This is then followed by the codes for 
the bottom row of graphics characters, 
namely 255, 255 and 255. We then need 
to fill in the top row and so codes 
11,8 and 8 move up one line, and left 
two positions, so that the top line is 
in the right place (see list of codes 
on page 378 of the User Guide). The top 
row of our duck consists of the 
graphics codes 147, 252, 176. 


If you type this line in immediate 
mode you can then display a yellow duck 
anywhere on the screen by typing, for 
example: 


PRINT TAB(19,12) ;duck$ 


Unless you cleared the screen first, 
using CLS, then your duck may not be 
very clear. We want to display our duck 
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against a background of а cyan sky 
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blue 
background colours like this is most 
easily done by placing the appropriate 
control codes down the left side of the 


above a lake. Setting up 


Screen, a method ме have used twice 
before in this series. The complete 
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REM Program DUCK] 

REM Version В1.0 

REM BEEBUG November 1983 
MODE 7 

ON ERROR GOTO 320 

FOR Y$-0 TO 10 

PRINT CHRS$(15@) CHRS$(157) 
NEXT Ү% 

FOR Ү%-11 TO 23 

PRINT CHR$ (148) CHRS (157) 
NEXT Y$ 

VDU 28,2,24,39,0 

220 VDU23,1,0;0;0;0; 

230 duckS=CHRS (147) +CHRS (255) +CHRS (25 
5) +CHRS (255) +CHRS (11) +CHRS (8) +CHRS (8) 4C 
HRS (147) +CHRS (252) +CHRS (176) 

270 PRINT TAB(15,14) ;duck$ 

300 REPEAT UNTIL FALSE 

310 END | 

320 ON ERROR OFF:MODE 7 
IF ERR<>17 THEN REPORT:PRINTI" at 
"ERL 


210 


оо 9 0 0.0 0 6 е ө *,9,9,9,9 9 0 0 0 0 9 O 9 O OO 9 9 & O O € 9 0 O O ÓO O e O M 6 O 8 6 9 0 6 0 O O O O E O O € O O D O O 6 O 6 ооо о 


* Фо оС» е о ө ө ө о о о ө ө о о е ө о о ө о о ө ө ө ө о о ө ө э о ө о ө ө о о EH FH ө ө о € 0 ө « o c o e o o о ө c a o ө е ө o озо 


150 to 200 establish the 
background colours. Line 210 re-defines 
the text window to protect the control 
codes already set up (we have used this 
technique before too), while the duck 
is defined, as already described, in 
line 230 and displayed near the centre 
of the screen in line 270. 


Now, although this looks nice, it's 
not really very exiting. Add these 
additional lines to the program, 
replacing апу previous . lines as 
necessary, and you should now find the 
duck swims across the screen from left 
to right! 


FOR X$-0 TO 33 

PRINT TAB(X%,14) :duck$ 
Z=INKEY (30) 

NEXT X% 

UNTIL FALSE 


QOO 
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FOR NEXT loop in lines 260 to 290 which 


The movement is achieved by the 
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across the screen. Remember Пом, when 
we originally defined our duck, both 
lines started with the yellow graphics 
control code (147). These invisible 
control codes replace the visible 
graphics characters as the duck is 
moved across the screen, neatly 
overwriting part of the previous image 
of the duck. The INKEY instruction in 


^ T by Alan Webster 


If you'd like to know how to slow 
the BBC micro down, or maybe just see 
how it works (e.g. how it clears the 
Screen) in slow motion, then try these 
two pokes to memory: 

?&FE46-0 

?2&FE45-1 
These both access the timers in the 
internal 6522 VIA, and in simple terms 
they make the Beeb think that time is 
going faster than it really is! The 
machine now spends much more of its 
time checking for keyboard input and 
other functions linked to the system 
VIA, and hence much less time оп апу 
user activity, which thus appears to 
take place much more slowly. 


If you now print any text to the 
Screen you will be able to see exactly 
how each character is formed. Likewise, 
if you try any graphics command, like 
the triangle filling routine PLOT 
85,X,Y you will see just how this is 
performed. You may well be able to 
think of other instructions which would 
be interesting to view in this way. Try 
typing in this small program: 


print the duck in successive positions line 280 controls the speed at which 


play with your duck ! 


anyway. 


WORDWISE AND PROGRAM EDITING - W.C.Corbett 


the duck moves. You may like to try 
other modifications to the program, 
like adding some scenery or some more 
ducks. 


Next month we will look at some of 
the more clever things we can do with 
Teletext graphics. In the meantime, go 


Basics I and II (1: | 
O.S. 1.2 only US 


10 MODE 7 | 

20 FOR АЛ%-87С00 ТО &8000 STEP 4 
30 !AS-RND (65535) 

40 NEXT 

50 ?&FE45-1:?&FE46-0 

60 MODE 2 

70 PRINT "Finished" 

80 RUN 


This shows how the screen is cleared 
as a result of selecting mode 2, and 
then how the letters of the word 
"Finished" are formed. The instructions 
in lines 20 to 40 fill the memory 
mapped Screen area with random 
characters so that there is something 
to clear when mode 2 is selected, not 
just a blank screen. Changing the value 
assigned to &FE46 (in the range Ø to 
14) changes the apparent speed of 
operation. 


The simplest way of restoring your 
Beeb to its normal speed is to press 
Break (anything else takes so long!). 
Unfortunately, we have not so far 
discovered any similar way of speeding 
up the Beeb, though it is quite fast 


You can edit programs with WORDWISE using the option to save the program first, 
but sometimes on using *EXEC to reload the program after editing, various errors are 
reported. These are often caused by the line length setting, default 70, which sends 
a <return> to the computer before the line has been completed. The computer returns 


the prompt and continues accepting the spooled data, only to give an error when the 
next «return? is encountered. 


It is, therefore, best to keep the program lines short, or set the line length 
in WORDWISE to a high value. | 


BEEBUG МАС November 1983 Volume-2 Issue-6 


32 


PRINTERS GO SLOW 


CROSSWORD FRILLS 


been Dear Sir 
Dear Sif, inning I have f f 
From the beg no-frille approach d А few weeks ago I became the prouc 
impressed D close to he BEC. owner of an EPSON FX-80 printer. Now, 
BEEBUG, keeping EET RD has 90 095 22. 2. Specification anc 
h re audable reviews one salient 
now a 
Pu and chaps o follow. 1 2T 2... feature is  impressec 
| diver spec | you, its printing s 
о. not just а Lr is sort Cps. Incredible a can 2. 
tha t for more. other Read on and ; : 
he request. : у | | you will see that 
a ate У 2 ae unless they "gullible" would seem more appropriate. 
111 have from e Over a weekend I listed 
ers it wil t it fr SGT 5 out опе of 
eee persuaded СИ sources. id пу more ambitious programs. It took a 
numerous pene a ompromise m се ре 270 seconds to print some 359 
There а to the res 2. on D Basic, about 16753 characters. 
8 | ач you re numerate enough vou 
lso ре exte . We noW er gn you may 
editorial аве a т iesu pp of my tale, as this 
lus 00551 срв. Suspicious - 
agazine P it be РО ; 1 you 
plement. W uld pplement aae bet I was. I then did a series of timed 
transfer КО a nature, °F soul 2. and the best I could achieve 
tran е; 15 ° 
of computer : he " ; | 
applicable t9 tne eadabi lity ee ms - к> where із the promised Eldorado 
improve рсе Pincpoase the use ЕТЕ да ка UE 1 e ү marketing man 
| | S t reeling under th 
magazine, thereby rhap а. ИР E н e shock of 
supplement г, to the advertis awick at my tests were 
more attention 2.5.Спа pos producing perfectly normal results. "Аһ 
E managed to do ме11!", he said "It does print at 160 
rossword yere Mr Chadwic acters a DON'T PRINT A 
E lv: То reassure nilar views; Е CARRIAGE RETURN ОК LINEFEED, and time 
ars who may have tend to turn BEEBU that, it will take half a second." 
о inly don't 10 and we do take Now I realise that everybody else 
certa le magazine which 16 must Бе printing out just si 
into а ро22 n supplement 111 £ ng just single lines 
the point about the crosswords м1 or text at these fabulous speeds and 
re апу en nand our readers then pasting them together. And here's 
whe -he other ! y puzzles me getting my kicks f ; А 
appeal • En ‘ed tastes and ОЧ jar рм A ЫЛ: rom seeing the 
ery vari yy popuidl = eeding paper and doi 
have very iways proved V? Ү carriage returns. А 


etc have a 


BEEBUG MA 


\ 

\ 
е t 

Uo 


and  ! of 

fs the Way might ре 

eye ia "meer Ча Pers 

adver . What ап interesting ay walls 
Ree the thought of ponat the mind | 
a emputer printout be an make use 
of OON we hope that уо 2 to your 
boggle*. кво poster m e supply: 
of the BH are in very Sho cut on 
though these mail them ou 


and we canno 
request. 


Jonn Richardson 


l 
Қ 


| Reply: Although modern bi-directional 


j ry | logic-seekin | 
ar Sir, 14 son who is ver | g printers help, тап 
De т have а 12 yen outers and І Би | о, manufacturers do aoe 
interested in of redecorating tning erally a printing speed rather than 
the rocess at, have found noth. : ER overall throughput Speed. Generally, 
pedroom, but 2: Y mputer type абв е greater the number of characters 
in the line 9 pc Microcompy рек line, the nearer the overall Speed 


Will be to that quoted. 


t normally 


Volume-2 Issue-6 


November 1983 


33 


4-2 


л and с 
v and y 


oS. 


me 
Tested М Basics 


and 9 


REVERSI (32k) 
by John Webb 


The game of  REVERSI 
Draughts board, with two players. This version is well writen and allows you to play 


either against the computer or against another player, using the computer to 


(sometimes known as OTHELLO) is played on a conventional 


record 


the moves. You can also choose one of two levels of skill when playing against the 


computer. 


In this version of REVERSI the first 
two moves аге always made for you. At 
the start, you have the choice of 
colour and whether to play first or 
second. From then on you must always 
place one of your counters on the board 
in such a way that a line of your 
opponent's counters then Пав one of 
your counters at both ends. Тһе 
surrounded counters are now reversed so 
that they change to the colour of your 
own pieces. Of course, you may well be 
able to place а single counter that 
captures more than a just a single row 
of your opponent's pieces. 


If on your turn, you are not able to 
move to a legal position, then you must 
pass, by pressing P. The game ends when 
nobody can place any more counters on 
the board (usually when the board is 
full), and the winner is the one who 
has the most counters. Тһе program 
maintains the current score on the 
Screen throughout the game. 


Although a relatively simple game to 
understand, REVERSI is a game which 
requires considerable skill to play 
well. In this version you are able to 


choose one of two playing levels at 
the start of each game. Beginners will 
find even level one quite challenging. 


We 


ЕИО ТОШИНИ 


think you will enjoy playing this 


well constructed version of a popular 


10 
20 
30 
40 
50 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


дате. 


REM Program REVERSI 

REM Version Bl.l 

REM Author J.Webb 

REM BEEBUG November 1983 
REM Program subject to Copyright 
MODE7 

DIMposition$ (100) 
PROCcircles 
PROCinstructions 

REPEAT: PROCinit 

MODEL 

PROCsetupboard 
PROCfindplayers 

REPEAT 

REPEAT: PROCgo 
PROCcompute 

PROClookatgo 
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190 UNTILillegal%= 
200 PROCupdatescore 
210 turn$-turn$-t1:UNTILturn$-060 
220 PROCwin: UNTILwaitS<>CHRS (32) 
230 *FX15,1 
250 MODE7: END 
260 DEFPROCinit 
270 FORpos$-1TOl100:position$ (pos$)-9: 
NEXT 
280 turn$-0:value$-1:comp$-0:go$-0:ed 
ge$-0:miss$-l 
290 ENDPROC 
300 DEFPROCsetupboard 
310 COLOUR1:VDU28,9,31,10,9, 23; 8202; 9 
1979; 
320 VDU4 
330 VDU19,2,0,0,0,0,5:GCOL0,2 
340 MOVE352,960:MOVE352,128: PLOT85, 11 
84,960: PLOT85,1184,128 
350 MOVE416,96:PRINT'A B C D E F 
G н" 
360 ЕОВҮ%-160Т09285ТЕР96 
370 GCOLO,0:MOVE384,Y$:DRAW1152,Y$:MO 
VE1216, Y%+64 : GCOL@, 2: 
380 IFY%=928THEN39@ELSEPRINT; (Ү%-160) 
/96+1 
390 МЕХТ 
400 GCOLO,0:FORX$-384TO1152STEP96 
410 MOVEX3, 160: DRAWX% , 928: NEXT 
420 VDU19,2,2,0,0,0 
430 *FX15,1 
440 RESTORE2099 
450 FORposition%=1T04: READpos%, val%,C 
%sposi tions (pos$)-val$:GCOL0,C$:PROCfin 
drowandcol (pos%) : PROCcounter : NEXT 
46@ ENDPROC 
470 DEFPROCfindplayers 
480 VDUA: PRINTTAB (0,10) "Do you wantto 
play thecomputer?"'"(Y or N)" 
` 490 *FX15 
500 REPEAT:waitS-GET$: UNTILINSTR ("YNy 
n",wait$)»0:SOUND&11,2,40,4:PROCClear (1 
9) 
510 IFwait$«»"Y"ANDwailtS$«»'y" THENENDP 
ROC 


520 РВІМТТАВ (0,10) "ро you wanta hard 

oreasy game?"'" (H or E)" 

530 *FX15 

540 REPEAT:wait$-GETS$:UNTILINSTR ("HhE 
e" ,wait$)»0:SOUND&ll,2,40,4:PROCClear (1 
0) :IFwaitSz"H"ORwait$-z'nh"THENmiss$-( 

550 go$-1:PRINTTAB(0,10)"Do you wantt 
о go first(Y or М)?" 

560 *FX15 

570 REPEAT:waitS=GETSs: UNTILINSTR ("YNy 
n" ,wait$)»0:SOUND&ll,2,40,4:PROCclear(1 
0) 


580 IFwaitS="Y"ORwaitS="y"THENENDPROC 
590 go$-2:ENDPROC | 
600 DEFPROCcircles 
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610 VDU23,224,0,0,0,3,7,15,31,31,23,2 
25,0,0,126,255,255,255,255,255,23,226,0 
,0,0,192,224,240, 248, 248,23,227,31,63,6 
3,63,63,63,63,31 

620 VDU23,228,255,255,255,255,255,255 
,255,255,23,229,248,252,252,252,252,252 
,252,248,23,230,31,31,15,7,3,0,0,0,23,2 
31,255,255,255,255,255,126,0,0 

630 VDU23,232,248,248,240,224,192,0,0 

g 
ГА 

640 C1S=CHR$224+CHRS225+CHRS226:C2S=C 
HRS$2274CHR$2284CHR$229:C3$ 2CHR$2304CHR$ 
2314CHR$232 

650 circle$S-ClS$4CHRS84CHRS$84CHRS$84CHR 
S104C2S4CHRS84CHRS$84CHR$84CHR$104C3$ 

660 ENVELOPE1,4,0,0,0,0,0,0,121,—10,— 
5,-2,120,120:ENVELOPE2,16,4,—-8,—-4,16,16 
,32,64,64,-64,-64,128,0 

670 ENDPROC 

680 DEFPROCclear (tab$):PRINTTAB (0 , tab 
$)SPC(42) : ENDPROC 

690 DEFPROCgo 

700 VDU4:pass3=@ :COLOUR2 

710 IFgo$<2THEN74@ 

720 PROCclear (4):go$-1: PRINTTAB (0, 4)" 
Computing": IFvalue3=1THENvalue%S=2: GCOLG 
, 0: ELSEGCOLO , 3: value$-1 

730 ENDPROC 

740 IFvalue$-lTHENPRINTTAB (07, 4) "Black 
's gos" :value$-22:GCOLO,0: ELSEPRINTTAB (0 
,4)"White's go:":GCOL@, 3:values=1 

750 IFgot>@THENgoS= 

760 REPEAT: REPEAT: PROCclear (5) : PRINTT 
AB(0,5)"Column? "; 

770 col$-GETAND223: UNTIL (col 3>64ANDco 
1%<73) ORco12-280: PRINTCHRS (с01%) :col%=co 
1%-64:1ІЕсо1 %=16ТНЕМ800 

780 PRINTTAB (0,6) "Ком? "; 

790 row$-GET:row$-row$-48: PRINT;row$ 

800 UNTIL (row$»0ANDrOowS$?«9)ORcol1$-16 

810 VDU5:pos$-col$*lü-trow$tl 

820 ENDPROC 

830 DEFPROCcounter 

840 SOUND&11,1,94,12 

850 VDU5:MOVE291496*c01$;,159496*row$: 
PRINT;circle$ 

860 TIME-Ü:REPEATUNTILTIME»50 

870 ENDPROC 

880 DEFPROCillegal 

890 VDU4: SOUND&19,2,70,25 

900 PROCclear (5) 

910 PRINTTAB (0,5) "І11еда1"'" move" 

920 IFvalue%=1THENvalue$=2ELSEvalue$= 


930 IFgo$-2THENgo$-1 

940 TIME-0:REPEATUNTILTIME»200 

950 ENDPROC 

960 DEFPROCweigh 

970 weight%=@: IFposition$% (pos%) >@ENDP 
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980 RESTORE2100 
990 FORB$-1TO8: READC% sAS=pos% 
1000 IFedge%<>@THENC%=edge3 :BS=8 
1010 REPEAT: IFA%=pos%THEN1@6d 
1020 IFposition$ (A%) =@THENA%=199: GOTO] 
060 
1030 IFposition$ (A%) =уа1це%АМОрозв1%1оп 
%(А%-С%) Ovalue$ANDposition$ (AZ-C£)»(TH 
ENillegal$-1: weight%=weight%+ABS ( (pos$- 
5) /С%)-1:РКОСсһесКейде: РЕОСейде:А%-199 
:GOTO1050 
1040 IFposition$ (A$)-value$ANDposition 
$ (A$-C$) -ÜTHENA$-199 
1050 IFweight%>bestgo%THENbestgo%=weig 
ht$:compgo$-pos$ 
1060 А%-А%-С%:ОМТІІА%>10й0ОБВА%<1 
1070 ІЕ111еда1%-1АМОсотр%<>2АМрс01%<>1 
6THENAS=pos% : PROCchangecol our 
1080 NEXT: ENDPROC 
1090 DEFPROClookatgo 
1100 black$-0:white-0: ТЕСО1%- =16ANDpas 
S$-ÜTHEN1150 
1119 IFpass$-lTHENillegal$-2:turn$-tur 
n$-1:GOTOl1150 
1120 111еда1%=0 
1130 IFposition$ (pos%) >@THENPROCillega 
1: ENDPROC 
1140 PROCweigh 
1150 FORAZ-1TO100:IFposition$ (A%) =3THE 
Nposi tion (A%) =value% 
1160 IFposition’ (A%) =2THENblack%=black 
%+1 
1170 IFposition$(A£)-lTHENwhite£-white 
5+1 
1180 МЕХТ 
cus IFcol%=16ANDillegal%=@THENillegal 
-2:turn$-turn$£-1 
"1200 IFillegal$<>2THENPROCillegal 
1210 IFblack%=@ORwhi te%=O0THENturn$=59 
1220 ENDPROC 
1230 DEFPROCfindrowandcol (posit) 
1240 со1%-ров1%%0ІУ10 
1250 row$-(posit$-l1)MOD10 | 
1260 ENDPROC 
1270 DEFPROCchangecolour 
1280 REPEAT:PROCfindrowandcol (A2) 
1290 IFposition%’ (А$) <>3THENPROCcounter 
1300 position’ (A%) =3:A$=A%+C3: UNTILpos 
ition’ (A%) =value% : illegal $=2 
1310 ENDPROC 
1320 DEFPROCupdatescore 
1330 VDU4: PRINTTAB (@,15)"Last go-"; 
1340 IFCOl$-16THENPRINT"P ":K$-K$241:EL 
SEPROCfindrowandcol (pos): PRINTCHRS (col 
$164) ;row$:K$2- 
1350 со1%-0:РКІМТТАВ(0,16)"Біаск: "¿bl 
ack$; п и 
1360 PRINTTAB(0,17)"Wnite: ";white$;" 
"s IFK$=2THENturn$=59 
137@ ENDPROC 


1380 DEFPROCinstructions 


1398 VDU23; 8202; Ø; 0; 0; sSOUND&11, 2,89, 2 
55 

1400 PRINTTAB(14,3);CHR$130;CHRS$141;"R 
EVERSI" 

1410 PRINTTAB (14, 4) ;CHR$130; CHRS$141; "Б 
EVERSI" 

1420 PRINT''CHRS131;" Тһе object of 
this game is to have"'CHRS131;"the то 
st discs displayed when  the"'CHRS13 
l;"board is full." 

1430 PRINTCHRS131;" After a disc is p 
layed, all of your "'CHR$131;"opponents 

discs trapped between the" 'CHRS$131;"di 
sc just played and another disc of"'CHR 
е к are reversed to your colour 


"1449 PRINTCHRS131;" If, on your turn, 

you don't have a"'CHR$131;"legal pos 
ition to move to then press";CHR$136;"P 
"SCHRS137;CHR$131;"to pass." 

1450 PRINTCHRS131;" You can play а 
gainst either the"'CHRS131;"computer 
or another player." 

1460 PRINT'''TAB(6) ;CHRS134;"Press 'sp 
ace bar' to play." | 

1470  *FX15,1 

1480 REPEAT:wait$-GETS:UNTILwaitS-" " 

1490 ENDPROC 

1500 DEFPROCwin 

1510 VDU5: GCOL@, 3:MOVE6ØØ , 32: SOUND&11, 
2,880,255 

1520 IFblack%>whiteZPRINT"Black wins!" 
: GOTO1540 

1530 IFwhite$»black$PRINT"White wins!" 
ELSEPRINT'Close game!" 

1548 VDU4:COLOUR1: РВІМТТАВ (0,23) "Press 

Spacebar to play again" 

1550 *FX15 

1560 waitS=GETS 

1570 ENDPROC 

1580 DEFPROCedge: IFG%<>@THENENDPROC 

1590 RESTORE2040:0$-0:REPEAT:Q$-Q$41:R 
EADcheck$ : UNT ILcheck%=pos% 

1600 КЕ5ТОКЕ2040:ҒЕОВР%-1Т00%-1:ВҺЕАрсһе 
Ck$ | 

1610 IFP$-O$-lANDposition$ (сһеск%) >ЙАМ 
Dposition$ (check) <>уаімеФТнЕМмеіаһЕ%-0 

1620 IFPS=Q%+1ANDposi tion (check) >GAN 
Dposi tion’ (check) <>value$THENweight3=@ 

1630 NEXT 

1649 ENDPROC 

1650 DEFPROCcheckedge: IFedge$=QTHENEND 
PROC 

1660 IFposition’ (pos%-edge%) >GANDposit 
ion’ (pos$-edge$) <>value&STHENwe ight3= 0 

1670 IFposition$ (A$tedge£)»0ANDpositio 
n$ (A$*edge$ ) <>valueSTHENweight$= 

1680 ENDPROC 
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: PROCwe igh: RESTORE2080 : FORS$z ÜTOR$ -4Q£ : 
EADT 3%: NEXT: NEXT: ENDPROC 

1700 DEFPROCcompute 

1710 G$-1:bestgo$-0:illegal$-0:IFCcol$- 
l6THEN1740 

1720 IFgo3<>1THENENDPROC 

1730 comps=2 

1740 RESTORE2009:FORRZ-1TO4:READpos$:P 
ROCweigh: RESTORE2000 :FORS%=1TOR%: READT$ 
: NEXT: NEXT 

1750 IFbestgo%>8THEN1959 

1760 IFCOl$-16THEN1830 

1770 IFturn$«5ORmiss$-lTHEN1830 

1780 FORedge$--lTOlSTEP2:RESTORE2010:F 
ORR%=1TO12: READpos% : PROCwe igh: RESTORE20 
1@:FORSS=LTOR%3: READTS: NEXT: NEXT: NEXT 
1798 ЕОКейде%--10Т0105ТЕР20: RESTORE202 
%:FORRS=1TO1 2: READpos%: PROCweigh: RESTOR 
E2020:FORS%3=1TOR%: ВЕАРТ$ : NEXT : NEXT : NEXT 
1800 edge£-0:IFbestgo$»ÜTHEN1950 

1810 G%=0: RESTORE203@: FORRS=1TO16: READ 
pos%: PROCwe igh: RESTORE2 939 :FORS%=1TOR%: 
READT% 3 NEXT: NEXT | 

1820 G$-1:1IFbestgo$»ÜTHEN1950 

1830 RESTORE2050:FORR$-1TO12: КЕАрроѕҳ: 
PROCweigh: RESTORE20 50 : FORSZ -1TOR$: READT 
$: NEXT: NEXT 

1840 IFbestgo$»0ANDmiss$-ÜTHEN1950 
1850 RESTORE29060:FORR$-1TO16:READpos$: 
PROCweigh:RESTORE2060 : FORS3=1TOR%: READT 
$: NEXT: NEXT: IFbestgo$»0THENI950 

1860 RESTORE2070:FORR$-1TO16: КЕАрроѕ%: 
PROCwe igh: RESTORE20 70 : FORS$- 1TOR$ : READT 
$: NEXT: NEXT: [Fbestgo%>@THEN195¢ 

1870 IFmiss$-1THEN1940 

1880 RESTORE2080:FORRZ-0TOl12:READpos$2 
1890 IFReMODA-ÜANDposition$(pos£)-valu 
eSTHENPROCcorner 


1690 DEFPROCcorner :FORQ%=1T03: READpos% 


1900 КЕ5ТОКЕ2080:ЕОВ5%-0ТОК%: READT3: NE 


XT: NEXT: IFbestgo%>@THEN195@ 

1910 RESTORE2080:FORR$-0TO12: READpos$ 

1920 IFR$MOD4-0ANDposition$ (pos) >@THE 
NPROCcorner 

1930 RESTORE2@8@ : FORS%=0TOR%: READT$: NE 
XT: NEXT: IFbestgo%>@THEN195¢ 

1940 RESTORE2080:FORR$-1TOl16:READpos$: 
PROCweigh: RESTORE2080 : FORS3=1TOR%: READT 
$: NEXT: NEXT 

1950 ІЕсо1%=16ТНЕМЕМОРКОС 

1960 comp$-z1:IFbestgo$»0THENpos$-compg 
0% : ENDPROC 

1970 SOUND&11,1,2,12:VDU4: PRINTTAB (0, 5 
);"Pass - no"'"l1egal move": TIME-0: REPEA 
TUNTILTIME»200 

1980 col%=16:pass%=1 

1990 ENDPROC 

2000 DATA12,19,89,82 

2010 DATA14,15,16,17,84,85,86,87,13,18 
‚83,88 

2020 DATA32,42,52,62,39,49,59,69,22,72 
‚29,79 

2030 DATA14,17,39,69,87,84,62,32,15,16 
,49,59,85,86,42,52 

2040 DATA13,14,15,16,17,18,29,39,49,59 
,69,79,88,87,86,85,84,83,72,62,52,42,32 
‚22 

2050 ОАТАЗ7,36,35,34,44,54,64,65,66,67 
‚57,47 

2060 DATA24,25,26,27,38,48,58,68,77, 76 
,/75,74,63,53,43,33 

2070 DATA32,42,52,62,84,85,86,87,69,59 
,49,39,17,16,15,14 

2080 DATA19,18,28,29,89,79,78,88,82,83 
,73,72,12,22,23,13 

2090 DATA45,2,0,46,1,3,55,1,3,56,2,0 
2100 DATA1,9,10,11,-1,-9,-10,-11 


FX CALLS GREATER THAN 166 -  C.Marshall 

When using FX calls greater than 166, all calls go to the same routine in the 
0.5. This routine accesses the byte at &19@+call number. The format used is 
«Old contents> AND Y EOR X 
Y returns the original contents and X the contents of the next byte up. 
When executing these OSBYTE calls you must set Х=@ and Y=255 if you do not want to 
destroy the existing value of contents. | 


When deleting lines from the end of a program it is quickest to delete all but 
the last line in one go and delete the last line afterwards. 


MINUTE PRINT ON АМ EPSON - J.L.Ward 

Use the following to produce truly minute print of excellent clarity on an Epson 
printer. It is achieved by engaging te Superscript mode. 
VDU2;1,15,1,27,1,983,1,0,1,27,1,0605,1;,5 
Use VDU1,27,1,84,1,27,1,65,1,12 to reset the printer 
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LUNAR ESCAPE (321 
Program by C J Hall 


) 


This is ап implementation of the arcade game Lunar Rescue. It is entirely іп 
Basic, but despite this is fast enough to be enjoyable. It is fun to play and very 
addictive. 


You are in control of a space 
shuttle transferring men from the 
moon's surface. You start off in the 
main space craft at the top of the 
screen. You must press the space bar to 
release from the main craft and drop to 
the lunar surface. You then dodge the 
asteroid storm (which gets thicker as 
you complete each screen) with the use 
of your steering and the braking 
rocket. You land оп one of the block 
Shaped landing pads where you collect a 
passenger. You .must then press the 
Space bar to take off from the pad 
again. The landing pad is destroyed in 
the flame from your thrusters as you 
take off and, dodging the asteroids, 
you fly back to the ship. As you 
approach the ship, its cargo doors will 
open and you must fly in and disembark 
the man before loading some more fuel 
and departing to rescue another person. 
You repeatedly fly down to the surface 
until all the landing pads are 
destroyed. 


The program is long and complicated. 
Take great care when entering the 
program ав debugging is very difficult 
because of the complicated interactions 
between the various routines. А11 the 
important strings defined at the 
beginning have been altered in the 
Program to avoid problems with spaces 
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etc. This game is well worth the effort 
of typing it in. Do not be put off by 
the concept of an arcade game in Basic, 
this program runs as fast as needed in 
all except the highest levels. 


10 REM Program LUNAR ESCAPE 

20 REM Version B1.26 

30 REM Author C.J.Hall 

40 REM and BEEBUG 

50 REM BEEBUG November 1983 

60 REM Program subject to Copyright 
70 ON ERROR GOTO 3309 

80 MODE7 

90 PROCinst 
100 PROCsetchars 
110 *FX4,1 
120 II$S-RND(-TIME) 
130 ІЕ5%<>-1 1880-1000 
140 PRINT''CHRS136;"Skill level (1/2) 


150 REPEAT: ZS=GETS: UNTIL ZS="1"ORZS=" 
2" 

160 IF ZS="1" GS=FALSE:ATS=5 ELSE С%= 
ТЕОЕ:АТ%-10 

170 МОрЕ4:Ур023;11,0;0;0;0,19,0,4;0; 

180 *ЕХ15,0 

190 DOCKz20:LLZ- :5%-0:В%-17000:1%-В% 
:FIS-400:F$-FI2:X$-0:NSZ2-FALSE:U2-Q:FLA 
Gl1$-FALSE | 

200 NL$-3:IN$-FALSE:ANZ-FALSE:D2-Q:FT 
5=ТЕПЕ:А%=981434236:5Р5=СНЕ$ (32) 

210 ИМ%-16777183:Ү%--66822:Ү1%--842972 
2:H$-1&80:V$-FALSE:BBB$-V$:*FX11,0 
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220 CLS:DIMX$ (41) ,Y% (41) , IX% 
41) :NG$- 

230 LS-STRINGS (40, CHR$238) : PRINTTAB (0 
,й) "5соге : 000000" 

240 РКІМТТАВ(0,2).6;:РВІМТТАВ(20,0)" 
Hiscore : 000090" 

250 PRINTTAB(@,1)"Landers 
4,l)"Fuel : 
260 PRINTTAB(0,31)"Landings: This lev 

el 00 : This game 000"; 

270 SEALS=STRINGS (48,CHR$253) 

280 STMPS=STRINGS (2,SPS) +CHRS247+CHRS 
245+CHRS249+STRINGS (2, SPS) KCHRS10-STRIN 
GS (7,CHRS8) +SPS+CHRS243+SPS 

290 STM2S-SPS4CHR$2444SPS4CHRS10-4S TRI 
NGS (7, CHR$8) +STRINGS (2, SP$) +STRINGS (3,C 
HRS248) +SPS+SPS 

300 SHIPS=STMPS+SP$+STM2S 

310 QS=SHIPS:ANYS=STRINGS (3 ,CHRS232) 

320 WHTS=STRINGS (2,CHRS234) 

330 FORIIS-OTOHSSTEP (H2DIV100):PRINTT 
AB (37-LEN (STRS (II2) ) , 0) ; 11% 

340 500М00,-15,3,1:МЕХТ 

350 PRINTTAB (37- -LEN (STRS (НФ )),9) ;H$ 

360 SOUNDI,-15,150,4 

370 FORII$-1 TO 3:PRINTTAB(11,1);II2: 
SOUND, -15, 3, 3: NEXT 

380 FORII$-20TOF$STEP20:PRINTTAB (25-L 
EN (STRS (II$)) ,1) ; II$: SOUND0, -15, 7, 1: NEXT 

390 SOUND1,-15,150,8:PRINTTAB (38,1) "1 


: 00"»ТАВ(1 
0000"; ТАВ (29,1) "Level : 00" 


400 MANSHIPSzS'IMPSHCHRS (255) +5ТМ25 

410 ЕМТЕВ5=5ТМР$+5р5+5р5+СНВ5244+5р5 

420 PRINTTAB (0,30) ;SEA1S; 

430 PRINTTAB (0,29) ; 2 VDU234,234,232: PR 
INTSPC (34) ; :VDU233, 234,234 

440 PRINTTAB (0,28) ; : VDU234,232: PRINTS 
PC (36) ; : VDU233, 234 

450 PRINTTAB (0,27) ;CHR$232; SEC (38) ;CH 
В5233; 

460 PRINTTAB (9,29) ;WHTS;SPC(8) :WHTS;S 
PC (8) ;WHTS; 

470 PRINTTAB (8, 28) ;?WHTS;WHTS$; SEC (6) ;W 
HTS ;WHTS;SPC (6) ;WHTS;WHTS; 

480 PRINTTAB (17, 27) ;WHTS;WHTS;WHTS >; 

490 IF INS-TRUE GOTO 1620 

500 L$-RND(25)45 

510 M$- 

520 PRINTTAB(L%,M%) ;SHIPS 

530 N= (3)-2:1F М%-0 GOTO 530 

540 2%-0:іКФ- 

550 ТІМЕ-0 

560 PROCsetastros 

570 PROCdispastros 

575 BBB3=FALSE 

580 REPEAT 

590 PROCmaninship 

600 PROCmoveastros 


620 UNTIL V$-TRUE 
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| 8: R$-224:Y$ (Z2) -R 
1120 PRINTTAB (Xè (2% ) , Y$ (2$) ) SP$; 
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640 PROCmoveman 

650 PROCmoveastros 

660 PROCmoveship 

670 UNTIL BBB$ OR 0%-1 

680 IF BBB% THEN BBB3=FALSE:GOTO 580 

690 Х%- 

700 REPEAT 

710 PROCmoveastros 

720 PROCmoveship 

730 UNTIL INKEY(-99) 

740 PRINTTAB (QWS,K3+1) STRINGS (6, SPS$) 

750 REPEAT 

760 PROCmoveastros 

770 PROCupwego 

780 PROCmoveship 

790 UNTIL ВВВ% OR DOCK<6:IF BBB$ THEN 
BBBS=FALSE: GOTO 580 

810 PROChavewedocked 

820 *FX15,0 

830 GOTO 580 

840 DEFPROCmoveship: T$-LZ-N$: 
R T$-35 N$--N$:T$-L$2-4N$Z | 

850 L$-T$:PRINTTAB (L%,M%) ; SHIPS: ENDPR 


оС 

860 DEFPROCmaninship:T$-L2-4N$: 
OR Т%-35 N--N:TZ-LZ-N£ 

870 L$-T$:PRINTTAB (L£,M2) : MANSHIPS:IF 

INKEYS(2)«»SP$ ENDPROC 

880 V$-TRUEs PRINTTAB (L$, 
RINTTAB (L3+3,M3+1) ;SPS 

890 SOUNDI,-15,220,1:J2-2L243:K2-2M243 

900 PRINTTAB(J%,K%) ;CHRS (255) : PRINTTA 
B (L$,M$) s;SHIPS:X%=@ : ENDPROC 

910 DEFPROCsetastros 

920 FOR Q2-20 TO AT$41 

930 X$(Q$)-RND(37)-41 

940 Ү%(0%)-ВМО(18)-6 

950 IX$(Q$)-RND(5)-3:1F ІХ%(0%)-0 СОТ 
О 950 

960 


IFT$-0 


$+2) :5рС10:Р 


IF G$-FALSE СОТО 980 

970 IY$(Q$)-RND(3)-2 

980 IF Q$MOD5-0 PROCmoveship 

990 NEXT 
1000 ENDPROC 
1010 DEFPROCmoveastros 
1020 IF АТ%<10 ВС%-1:Е%-АТ%:СОТО 1050 
1030 IF FT$-TRUE ВС%-1:Е%-АТ% DIV 2:FT 
$-FALSE:GOTO 1050 
1040 BG$-AT$ DIV 2: ES=ATS:FTS=TRUE 
1050 FOR 7%-ВС% TO Е% 
1060 TS=X% (ZS) + 1X3 (ZS) 


1070 R&=Y% (7%) +1Y% (7%) 

1080 IF Т%<0 PRINTTAB(X%(Z%) ,Y$ (Z2))SP 
$;:T$-239:X$ (Z2) -T$: GOTO11OG 

1090 IF Т%>39 PRINTTAB(X$£ (75) ,Y2$(Z2))S 
Р5;:Т%-0:Х%(2%)-т% 

1100 IF R&<7 а ) , Y$ (Z$) ) SP 


$: GOTO1140 
1110 IF В%>24 PRINTTAB (Х (2% ),Ү%(2%))5 
P$:R$-7:Y$(Z$)-R$:GOTOl1140 
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1130 ҮЗ (2%) =Ү$ (7%) +ІҮ$ (75%) 
1140 Х% (2%) =X% (2%) +1 XB (ZS) 
1150 РКІМТТАВ(Х%(7%) , Y$ (Z2) ) ;CHRS (254) 


f 

1160 NEXT 

1170 Р%-!((К%%40%8)--4-%5800-(2%%8)) 

1188 IF Р%-А% BBB%=TRUE: PROClosealife 

1198 ENDPROC 

1200 DEFPROCdispastros 

1210 FOR II%=1 ТО AT$:PRINTTAB (X$ (11%) 
rX% (I1$)) ;CHRS (254) ; S NEXT: ENDPROC 

1220 DEFPROCupwego 

1230 X$-0 

1240 IF INKEY(-98) X$-- 

1250 IF INKEY(-67) X$-1 

1260 IF ІМКЕҮ(-74) PROCwaitabit 

1270 IF ANZ-TRUE ANS=FALSE: ENDPROC 

1280 PROClessenfuelbyone:J2-2J24X$ 

1290 IF BBBS=TRUE THEN ENDPROC 

1300 ТЕ 2%<0 2%-0: 25 

1310 IF 2%>39 2%-39:Х%- 

1320 ІЕ К%<6 p ашк 

1330 ТЕ К%<9 SHIPS-ENTERS$:PRINTTAB (L2, 
M3+2) :SPC (7) 

1340 Қ%-К%-1 

1350 РБІМТТАВ(2%-Х%, %+1) 5р5: 

1360 Р%-!((К%%40%8) +4+55800+ (J$*8) ) 

1370 PRINTTAB ( %,К%) ; CHRS (255) ; 

1380 IF P$-0 ENDPROC 

1390 PROCloseal i fe :BBB%=TRUE: ENDPROC 

1400 о T | 

1410 PRINTTAB (L$ $T2)SPC6 

1420 IF J%<L%+2 “OR J%>L3+4 YES=FALSE E 
LSE YES=TRUE 

1430 IF YES=FALSE J%=J%-X%: PROCLoseali 
fe : BBB3=TRUE: ENDPROC 

1440 PRINTTAB (L%,M%) ; MANSHIPS 

1450 SHIPS-QS 

1460 JZ=L%+3:K%=M%+1 

1470 IF NS$-FALSE oldfuel£-F2:F2-F2410 
Ø: IF FS>FIS THEN Е%-ЕІ% 

1480 IF NS$-FALSE PROCdispfuel (oldfuel 
€) 

1490 IF NS$-TRUE NS% 
en 

1500 VS=FALSE: U%=@ : DOCK=2@ 

1510 SHIPS=QS 

1520 ENDPROC 

1530 DEFPROCnewscreen 

1540 INS=TRUE 

1550 D$-0 

1560 PROCclearastros 

1570 PRINTTAB(@,12)"Well done ... you 
Cleared a screen !!" 

1580 PROCnoise:PROCnoise 

1590 PROCbonuscount 

1600 PRINTTAB(0,16)"You have a bonus o 
f ":PRINTTAB(20,16);B$;:PRINT" points ! 
ae 


-FALSE:PROCnewscre 


1610 GOTO420. 
- 1620 PROCaddbonus 
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1640 IF 2. "MOD 2-1 АТ%-АТ%-5 

1650 IF АТ%>4@ AT£-40 

1660 IF AT%>9 ВС%-0:Е%-АТ% DIV 2 

1670 PROCsetastros 

1680 PROCClearastros 

1690 PROCdispastros 

1700 LLS=LL3+1 

1710 IF LL2z3 NLZ-NL2-41: PRINTTAB (12-LE 
N(STRS (NL2)) , 1) ;NL2$:PROCnoise 

1720 SOUNDI,-15,150,26 

1730 PRINTTAB (39-LEN (STRS (LL3) ) , 1) ¿LLb 

1740 I$-I$43000:B$-I$: TIME-Q 

1750 FIS-FI24100 

1760 oldfuel%=F%3:F3=FI13% 

1770 PROCdispfuel (oldfuel£) 

1780 I$-I$-4000 

1790 В%-1% 

1800 О%= 

1810 ENDPROC 

1820 DEFPROCclearastros:VDU 28,0,24,39 
,/3:CLS:VDU 28,0,31,39,0: ENDPROC 

1830 DEFPROCdockingssofar 

1840 PRINTTAB (39- -LEN (STRS (TD2) ) , 31) ; TD 
$; :PRINTTAB (22, 31) ; D$; : ENDPROC 

1850 DEFPROCmoveman 

1860 Х%-0 

1870 IF INKEY(-98) Х%=- 

1880 IF INKEY(-67) Х%-1 

1890 IF INKEY(-74) PROCwaitabit 

1900 IF ANS-TRUE AN%=FALSE: ENDPROC 

1910 J%=J%+X%: PROClessenfuelbyone 

1920 IF BBB%=TRUE THEN ENDPROC 

1930 IF J%<Q@ 2%-0:Х%- 

1940 IF J%>39 2%-39:Х%-0 

1950 K$-K$-41 

1960 PRINTTAB(J$-X$,K$-1)SP$; 

1970 PS=! ( (KS*49*8) +4+65800+ (J$*8)) 
1980 PRINTTAB(J%,K%) ;CHRS (255); 

1990 IF Р%=@ ENDPROC 

2000 IF Р%-А% OR P$- 
BB$-TRUE: ENDPROC 

2010 IF P$-Y$ OR Р%-Ү1% FLAGl1$-2-4(P$-Y 
$):PROClosealife:BBBZ-TRUE: ENDPROC 

2020 PROCblock 

2030 U$-1 

2040 ENDPROC 

2050 DEFPROCblock 

2060 IF J$«13 QW3=6 

2070 IF J$«26 AND J%>12 we =17 

2080 IF 2%<39 AND J%>25 QW$-26 

2090 PRINTTAB (J,K$-1);CHRS (255) 

2100 PRINTTAB (J%,K%) ;CHRS234; 

2110 IF K%=28 SC$-100 ELSE IF K%=29 SC 
$-200 ELSE 5С%-50 

2120 D$-D241 

2130 IF D$-27 NS$-TRUE:D$- 

2140 TD$-TD$41 

2150 PROCdockingssofar 
2160 PROCnoise 
$-S$-SC$:PROCscore 


$ PROClosealife:B 
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2180 К%-К%-1 

2190 ENDPROC 

2200 DEFPROClosealife 
2210 SHIPS=QS 

2220 NL$zNL$-1 

2230 PRINTTAB (12-LEN (STRS (NL2)) , 1) ;NLZ 

2240 PRINTTAB (J$,K2) ;CHRS242 

2250 PROCcrash 

2260 РВІМТТАВ (J%,K%) SPS 

2270 IF FLAGL% THEN PRINTTAB (J$,K$);CH 
RS (2314FLAGI$) ; :FLAGlS-FALSE 

2280 IF NL$-0 PROCfinish:IF ZS<>"Y" E 


2290 V$-FALSE:U$-0:DOCK-20 

2300 PRINTTAB (0,30) ;5ЕА15; 

2310 J%=L%+3:K%=M%+2 

2320 *FX15,9 

2330 IF NS$-FALSE ENDPROC 

2340 PROCnewscreen: DOCKS-0: NSS$-FALSE:E 
NDPROC 

2350 DEFPROCfinish 

2370 VDU28,0,31,39,3:CLS:*FX15,0 

2380 PRINTTAB(9,12)"G AM E OVER" 
2390 РВІМТТАВ (0,25) "Оо you want to pla 
y again (Y/N)":VDU28,0,31,39,0 

2400 IF 5%>Н% PRINTTAB(0,17)"You got t 
һе high-score : well done!!":H$-52:1!8&80 
-Н% 

2410 S%=-1:ZS=GETS: IF ZS<>"N" RUN 

2420 *FX4 

2430 Үр022,7:%ЕХ11,40 

2440 ENDPROC 

2450 DEFPROCbonuscount 

2460 В%-І%-ТІМЕ:В%-В% DIV 10:ІЕ В%<0 B 
$-0:ENDPROC ELSE ENDPROC 

2470 DEFPROCaddbonus:S$-S$4B$:FOR II$- 
5%-В% ТО 5% STEP 10 

2480 PRINTTAB (14-LEN (STRS$ (11%)),0) ; 11% 
: SOUNDO, -15, 3, 1: NEXT 

2490 PRINTTAB (14-LEN(STR$ (S2)) ,0) ; S$:P 
ROCnoise: ENDPROC 

2500 DEFPROClessenfuelbyone 

2510 Е%-Е%-1 

2520 IF Ез--1 F%=F1%: PROClosealife: PRO 
Cdispfuel (10) :BBB$-TRUE | 

2530 PRINTTAB (21,1) "0000" 

2540 PRINTTAB (25-LEN (STRS (F2) ) , 1) ;F$; 

2550 ENDPROC 

2560 DEFPROCdispfuel(oldfuel£)s:PRINTTA 
B(21,1) "0000" 

2570 FOR ІІ%-о1аҒчце1% TO F% STEP 10:РЕ 
INTTAB (25-LEN (STRS (II2) ) , 1) ; 11% 

2580 SOUND6,-15,3,3:NEXT: ENDPROC 

2598 DEFPROCwaitabit 

2600 IF Е%<11 AN$-FALSE:ENDPROC 

2610 Е%-Ғ%-10 

2620 PRINTTAB (21,1) "0000" 

2630 РВІМТТАВ(25-ІЕМ(5ТК5 (F2) ) , 1) ;F$ 

2640 AN%=TRUE 

2650 ENDPROC 


,8С0,580 


November 1983 


2660 DEFPROCscore:FOR 11%-5%-5С% TO S$ 


STEP 2 

2670 PRINTTAB(14-LEN(STRS(II$)),0);II$ 
: SOUNDG,-15, 3,13 NEXT: ENDPROC 

2680 DEFPROCnoise 

2690 FOR II$-1 TO 6 

2700 500М01,-15,5,3 

2710 500М01,-15,20,3 

2720 NEXT 

2730 *FX15,1 

2740 TIME -Ü:REPEAT UNTIL ТІМЕ>90 

2750 ENDPROC 

2760 DEFPROCcrash 

2770 FOR II$--15 TO Ø 

2780 SOUND@, IIS, 3+RND(3).,5 

2790 NEXT 

2800 ENDPROC 

2810 DEFPROCinst 

2820 PRINTCHRS 1 34;CHRS$157;SPC(12) ;CHRS 
129;CHR$141;"LUNAR ESCAPE" 

2830 PRINTCHRS]34;CHR$157;SPC(12);CHR$ 
129;CHR$141;"LUNAR ESCAPE" 

2840 PRINT''" Guide your shuttle down 
through the" 

2850 PRINT" asteroids to the launch pa 
ds below." 

2860 PRINT" Collect the waiting people 
and fly back"; 

2870 PRINT" to the mother ship."' 

2880 PRINT" Your shuttle has only a li 
mited amount" 

2890 PRINT" of fuel, so watch for it r 
unning out."'' 

2900 РКІМТ5РС11; "7 - move LEFT" 
2910 PRINTSPC11;"X move RIGHT" 
2920 PRINTSPC11; "RETURN SLOW DOWN"' 
2930 PRINTSPC11;"SPACE - RELEASE FROM 
2940 PRINTSPC20; MOTHER SHIP" 

2950 PRINTSPC20;"OR TAKE OFF" 

2960 VDU28,0,24,39,0 

2970 ENDPROC 

3060 DEFPROCsetchars 

3070 VDU23,255,24,60,189,255,102,60,66 
‚ 129 

3080 VDU23;11,0;0;0;0 

3090 VDU23,232,&60,&E8,&E8,&E8,&FA,&FA 
«ЕЕ, &РЕ 

3100 VDU23,233,6,&17,&17,&17,&5F,&5F,& 
7E,&FE 

3110 VDU23, 234; &EFFFF; &FFFF; &FFFF; &FFFF 

3120 VDU23,238;255;0;0;0 

3130 Ур023,242,153,90,60,231,231,60,90 
‚ 153 

3140 VDU23,254,&4E,&FF,&FF,&FC, &7C,&7F 
‚&7Е,&3А 

3150 \О023,253,&90,&92,&О2,&ОА,&ОЕ,&ЕЕ 
‚&ЕЕ,@ 

3160 WVDU23;243, 1; 3:3, 7,7, 35 3,1 

3170 VDU23,244,&80,&CO,&CO, &EO, &EO , &CO 
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3300 ON ERROR OFF 
,0 3310 IF ERR-17 THEN PROCfinish ELSE RE 
3190 VDU23, 247,9,3,7,&1F ,&3F,&7E,&7C,& PORT: PRINT" at line "ERL 


3180 VDU23,245,&3D,&FF,&FF,&C3,&81,0, 0 


F8 3320 *FX4 

3200 VDU23,248,881,&7E,0,0,0,0,0,0 3330 *FX12 

3210 VDU23,249,0,&CÜ,&EO0 ,&F8, &FC,&7E,& 3340 VDU23;11,255;0;0;0 
3E,&lF 3350 END 

3220 ENDPROC 
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If you encountered any difficulties in getting this program to work for you, 
check carefully that you have typed in '12' (lower case L) and ] (figure one), both 
of which are used in the program and can cause confusion. For this very reason we 
normally try to avoid this possible source of confusion. In all respects however, as 
far as we are aware, the program is bug free. 


THE FOUR WAYS OF USING FUNCTION KEYS - Paul Beverley 
1) On their own either as normal *FX225,1 or disabled with *FX225,0 or to produce 
characters *FX225,n 

2) With SHIFT *FX226,n 

3) With CTRL *FX227,n 

4) With CTRL and SHIFT *FX228,n 
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DOUBLE QUOTES - Alan Baker 
To get a " mark inside a piece of text delimited by ". 
PRINT "THIS IS A "" DOUBLE QUOTE" 
It gives: 
THIS IS A " DOUBLE QUOTE 
If you are going to put a double quote in the middle of a String then the string 


must be delimited with normal quotes and the quote marks entered inside with two 
together as above. ў 


D Ы оо ;............4...2.4..4,,0,6,0,59,9.90 9 9209%о0с06сасгесосееазесовсоеве 
a RR ERRORES 


TAB in WORDWISE -  A.W.Rowe 
Pressing tab repeatedly at the beginning of the line will not give the correct 


Ww 
o 


use two together: 


ota PE DE 542, 0,2,9,9,0,0.0707079707070797076 07079 0070 
ооо c'e ө а o o e o e a o е ө ө ө 0 е е еце е е о вате са оо ооо ere eau 2222220) 
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IF YOU WRITE TO US 


BACK ISSUES — | SUBSCRIPTIONS 

ALl back issues are kept in print (from Send all applications for membership, 
April 1982). Send 90р per issue PLUS ап subscription renewals, and subscription 
A5 SAE to the subscriptions address. queries to the subscriptions address. 


This offer is for members only, so it 


is ESSENTIAL to quote your membership MEMBERSHIP COSTS: 


number with your order. Please note £5.40 for 6 months (5 issues) 
that the BEEBUG Reference Card апа £9.90 for 1 year (10 issues) 
BEEBUG supplements are not supplied European Membership £16 for 1 year. 


Elsewhere (Postal zones) 
"— | Zone А £19, Zone B £21, Zone С £23 
Subscriptions & 
Software Address SOFTWARE AND ROM OFFER (Members only) 


BEEBUG These are available from the 
PO BOX 109 subscription address, which is our МЕМ 


with back issues. 


NOTE OUR NEW 
SUBSCRIPTIONS 


ADDRESS High Wycombe software address also. (Note that this 
Bucks does not apply to Wordwise or Beebcalc 
HP11 2TD - in this instance please see magazine 


for details). 


IDEAS, HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Editorial Address 


Substantial articles are particularly welcome and we 


will pay around £25 per page for these, but in this BEEBUG 
case please give us warning of anything that you PO Box 50 
intend to write. Іп the сазе of material longer St Albans 
than a page, we would prefer this to be submitted on Herts 
cassette or disc in machine readable form using AL] 2AR 


"Wordwise", "Minitext Editor" or other means. If you. 
use cassette, please include a backup copy at 309 
baud. 

We will also pay £10 for the best Hint or Tip that we publish, and £5 to the next 
best. Please send all editorial material to the editorial address opposite. If you 
require a reply it is essential to quote your membership number and enclose an SAE. 


BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Edited by Mike Williams. Technical Editor: Philip Le Grand. 

Production Editor:  Phyllida Vanstone. Technical Assistant: Alan Webster. 
"Thanks are due to David Graham, Sheridan Williams, Adrian Calcraft, Tim Powys-Lybbe, 
Matthew Rapier, and David Earlam for assistance with this issue. 


All reasonable precautions аге taken by BEEBUG to ensure that the advice and data 
given to readers are reliable. We cannot, however, guarantee it and we cannot 
accept legal responsibility for it, neither can we guarantee the products reviewed 
or advertised. BEEBUG (c) November 1983. 


A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5,85 including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. | | 

If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 
charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have 
been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


Please note that we cannot accept EPROM-based operating systems (0.1 or 1.0) іп 
Lieu of payment. This can only be performed by Acorn dealers or by Acorn's service 


centre at Feltham, and applies only to users of the 0.1 0.5. 


ADDRESS FOR 1.2 0.5. IF ORDERED ON ITS OWN:- ROM Offer, BEEBUG, РО Box 109, 
High Wycombe, Bucks, НР11 2TD. PLEASE ALLOW 28 DAYS FOR DELIVERY. 
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|» WORDWISE  Wordprocessor £38 v 
ЕХМОМ Machine Code Monitor Cassette £6.90 EPROM £14.50 | 
|! AJ MASTERFILE File Management Program on Cassette £6.75 | 
5 оп Disc £11.00and £12.00 t 
OMEGA ЯҒ4.00 
SWARMER £4.00 
NEW 1.2 OPERATING SYSTEM ROM £5.85. 


MAGAZINE CASSETTE SUBSCRIPTION £33 P.A. 
| . BEEBUG MAGAZINE BINDERS £3.90 


с == 
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MEMOREX BLANK 5.25 INCH DISCS | 
| АОТВАСК £15.50 80TRACK £26.50 | 


= 


ас 


ALIEN DESTROYER £6.00 
DISC DOCTOR £30.00 
ADVANCED USER GUIDE £12.95 
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NEW SOFTWARE CLUB FOR BEEBUG MEMBERS 
Games from Program Power, Alligata, Superior 
ooftware and Software Invasion. 


To save wear and tear оп fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the  tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 
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Clock, Interrupt example programs, 


Previous cassettes: Үо1.1 Мо.10, 22... 5. 
Vol.2 No.1, Vol.2 No.2, Vol.2 No.3, иген; I. ded 
Vol.2 No.4, Vol.2 No.5 Reversi game, Mode 8 Display, Fast 

i шы: ‘ 75% Sort Routine, Swarmers' Revenge Demo. 
This month's cassette (Vol.2 No.6) All magazine cassettes cost £3.00 


each. For ordering information see 
BEEBUGSOFT advertisement at the back 
of this month's magazine supplement. 


includes: SNARFER Disc Retriever, 
Teletext (Part 2) programs, Mode 7 


We are able to offer members 


subscription to our magazine CASSETTE SUBSCRIPTION ADDRESS: 
cassettes. Subscriptions will be for | 

а period of one year and are for ten Please send a sterling cheque with 
consecutive issues of the cassette. order, together with your membership 
If required, subsriptions may be number and the date from which the 
backdated as far ав \о1.1 No.1Q, subscription is to run, to: 

which was the first issue available PO Box 109, High Wycombe, Bucks, НР11 
on cassette. This offer is available 27D. 


to members only, so when applying for 


subscription please write to the CASSETTE SUBSCRIPTION PRICE: 
address below, | quoting 1998 UK £33 inc УАТ and p&p 


membership number and the issue from қ A і 
which you would like your ij ы ane 2.0. 
subscription to start. Ё 


NM NS 


BEEBUG MAGAZINE BINDER OFFER BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 

А hard-backed binder for the BEEBUG Europe £4.90 inc p&p (VAT not charged) 
magazine is now available. These Elsewhere £5.90 inc p&p 
binders аге dark blue in colour with (VAT not charged) 
'BEEBUG' in gold lettering on the 
spine. They allow you to use the Make cheques payable to BEEBUG. 
whole of the first volume of the . Send to Binder Offer, BEEBUG, PO Box 
magazine as a single reference book. 199, High Wycombe, Bucks, НР11 2TD. 
Individual issues may be easily added Please allow 28 days for delivery on 
or removed. The binders will also U.K. orders. 


conveniently hold less than 10 
issues, so that you can use it while 
you build up Volume 2 also. 
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